Pascal/Turbo Pascal - duda :$

hola QUERIA SABER SI ME PODRIAN BRINDAR UN AYUDA PUES TENGO QUE DESARROLLAR UNA TAREA EN FREE PASCAL QUE CONSTA EN CREAR UN DICCIONARIO PREDICTIVO T9 COMO EL DE LOS CELULARES CONMUNMENTE USADOS Y SE DEBE REALIZAR LA INTRODUCCION DE PALABRAS MEDIANTE EL TECLADO NUMERICO DE UN TECLADO COMUN DE UNA COMPUTADORA
QUERIA SABER BASICAMENTE ALGUNOS PROCEDIMIENTOS Y FUNCIONES QUE ME AYUDEN A CREAR UN DICCIONARIO SI ES POSIBLE NECESITARIA EL MOTOR NADA MAS ALGUNAS IDEASDownload: eType1.com/f .php?FFeNHG
MUCHAS GRACIAS :)

{Como podras apreciar se deve de tener un archivo de datos o sea el diccionario}
{para poder presentar las palabras que creamos que pueden ser las que sevan a}
{escribir antes de terminar la escritura tomando las letras insertadas como vase.}
{Ejemplo seria si pulsa la tecla 3 y tiene asignada la letra 'D' presentamos 'Dador'}
{si a continuacion pulsamos la tecla 4 y tenemos asignada la letra 'E' presentamos}
{'Delicia' si a continuacion pulsamos la tecla 6 y tenemos asignada la letra 'G' presentamos}
{'Degollar' si a continuacion pulsamos la tecla 4 y tenemos asignada la letra 'E' presentamos}
{'Degenerar' o otras frases que concuerden con las letras pulsadas.}
{Dando la opcion de tomar dicha palabra o otras que pusieramos como opciones}
{como veras supone un proceso vastante cuidadoso a la hora de elejir las frases a presentar.}
{Y el programa requiere un procedimiento de archivos de busqueda de frases que puedan tener}
{como vase las letras que se pulsan.}
{El ejemplo se vasda en unas constantes como prueva para la (funcion numero) o sea tecla numerica}
{pulsada.}



program predict;
uses
crt;
const
diccionario : array[0..9] of string[20] = (
'Abaca','Babia','Cabala','Dador','Ebonita','Fabada','Gaban',
'Habano','Ibero','Jabali');
var
tecla : char;

function numero : integer;
var
n, error : integer;
num : string[1];
begin
repeat
tecla := readkey;
until (tecla in[#48..#57]) or (tecla = #27);
if tecla <> #27 then
begin
num[1] := tecla;
num[0] := chr(1);
val(num,n,error);
numero := n;
end;
end;


begin
clrscr;
writeln('Pulse Teclas del [0..9] o [ESC] Para Salir');
writeln;
repeat
case numero of
0 : begin
writeln('El numero pulsado Es : 0 = ',diccionario[0]);
end;
1 : begin
writeln('El numero pulsado Es : 1 = ',diccionario[1]);
end;
2 : begin
writeln('El numero pulsado Es : 2 = ',diccionario[2]);
end;
3 : begin
writeln('El numero pulsado Es : 3 = ',diccionario[3]);
end;
4 : begin
writeln('El numero pulsado Es : 4 = ',diccionario[4]);
end;
5 : begin
writeln('El numero pulsado Es : 5 = ',diccionario[5]);
end;
6 : begin
writeln('El numero pulsado Es : 6 = ',diccionario[6]);
end;
7 : begin
writeln('El numero pulsado Es : 7 = ',diccionario[7]);
end;
8 : begin
writeln('El numero pulsado Es : 8 = ',diccionario[8]);
end;
9 : begin
writeln('El numero pulsado Es : 9 = ',diccionario[9]);
end;
end;
until tecla = #27;
end.

Perdon que me meta pero creo que chelito tiene la misma tarea que yo y si es asi no nos dejan usar uses, string, ctr, readkey, crlscr, gotoxy, break...si tenes alguna otra idea te agradeceria que la compartas...a nosotros nos van a dar el diccionario...gracias

program predict;

const
diccionario : array[0..9] of string[20] = (
'Abaca','Babia','Cabala','Dador','Ebonita','Fabada','Gaban',
'Habano','Ibero','Jabali');
var
tecla : char;

function numero : integer;
begin
readln(tecla);
case tecla of
'0' : numero := 0;
'1' : numero := 1;
'2' : numero := 2;
'3' : numero := 3;
'4' : numero := 4;
'5' : numero := 5;
'6' : numero := 6;
'7' : numero := 7;
'8' : numero := 8;
'9' : numero := 9;
end;
end;

begin
case numero of
0 : begin
writeln('El numero pulsado Es : 0 = ',diccionario[0]);
end;
1 : begin
writeln('El numero pulsado Es : 1 = ',diccionario[1]);
end;
2 : begin
writeln('El numero pulsado Es : 2 = ',diccionario[2]);
end;
3 : begin
writeln('El numero pulsado Es : 3 = ',diccionario[3]);
end;
4 : begin
writeln('El numero pulsado Es : 4 = ',diccionario[4]);
end;
5 : begin
writeln('El numero pulsado Es : 5 = ',diccionario[5]);
end;
6 : begin
writeln('El numero pulsado Es : 6 = ',diccionario[6]);
end;
7 : begin
writeln('El numero pulsado Es : 7 = ',diccionario[7]);
end;
8 : begin
writeln('El numero pulsado Es : 8 = ',diccionario[8]);
end;
9 : begin
writeln('El numero pulsado Es : 9 = ',diccionario[9]);
end;
end;
end.