что-то вроде т9

Program per;
uses
    crt;
const
     arr:array[1..9,1..4] of char = (('А','Б','В',' '),
                                     ('Г','Д','Е',' '),
                                     ('Ж','З','И','Й'),
                                     ('К','Л','М',' '),
                                     ('Н','О','П',' '),
                                     ('Р','С','Т','У'),
                                     ('Ф','Х','Ц','Ч'),
                                     ('Ш','Щ','Ъ','Ы'),
                                     ('Ь','Э','Ю','Я'));
     mask:array[1..9] of integer = (3,3,4,3,3,4,4,4,4);
var
     mas,l:array[1..9] of integer;
     topmas:array[1..9,1..4] of char;
     topmask:array[1..9] of integer;
     i,k,j:integer;
     s:string;
 
procedure createtop(var topmas:array[1..9,1..4] of char; mas:array[1..9] of integer; n:integer);
begin
     for i:=1 to n do
     begin
          for j:=1 to mask[mas[i]] do
          begin
               topmas[i,j]:=arr[mas[i],j];
          end;
          topmask[i]:=mask[mas[i]];
     end;
end;
procedure doit(i:integer);
begin
     if k>=i then
        l[i]:=1;
        while (l[i]<=topmask[i]) do
        begin
             s:=s+topmas[i,l[i]];
             if (i=k) then
                 writeln(s)
             else
                 doit(i+1);
             inc(l[i]);
             delete(s,i,1);
        end;
end;
begin
     writeln('Введите числа');
     readln(k);
     for i:=1 to k do
         read(mas[i]);
     writeln();
     createtop(topmas,mas,k);
     i:=1;
     doit(i);
end.