Квадрат Полибия - Написать программу, шифрующий текст именно по этому способу

program krasikovz3;
uses crt;
const
  TPolibius: array['А' .. 'Е', 'А' .. 'Е'] of char = (
        {1}  {2}  {3}  {4}  {5} {6}
   {1} ('А', 'Б', 'В', 'Г', 'Д','Е'),
   {2} ('Ё', 'Ж', 'З', 'И', 'Й','К'),
   {3} ('Л', 'М', 'Н', 'О', 'П','Р'),
   {4} ('С', 'Т', 'У', 'Ф', 'Х','Ц'),
   {5} ('Ч', 'Ш', 'Щ', 'Ъ', 'Ы','Ь'),
   {6} ('Э', 'Ю', 'Я', ' ', ',','.')
  );
var
f,g:text;
i,tmp,n,k:integer;
  ix,jx:char;
st,l,str,shifr,ashif:string;
 
procedure vvod;
var
i:integer;
begin
write('Введите Слово\Фразу: ');
read(str);
for i:=1 to length(str) do begin
if ord(str[i]) >= 224 then begin
tmp:=ord(str[i]);
str[i]:=chr(tmp-32);
end;
end;
readkey;
end;
 
 
procedure s4et;
var ks,i,j:integer;
begin
l:='';
writeln('Work procedure s4itat s file');
assign(g,'D:\txt\filetext1.txt');
reset(g);
i:=0;
n:=0; {nomer stroki}
while not eof(g) do begin
readln(g,str);
writeln(str);
n:=n+1;
 j:=0; {nomer stolbca}
for i:=1 to length(str) do begin
if ord(str[i]) >= 224 then begin
tmp:=ord(str[i]);
str[i]:=chr(tmp-32);
end;
if str[i]<>' ' then
      l:=l+str[i]
{else
begin
j:=j+1;
val(l,a[n,j],code);
l:='';
end;
 ks:=j; {kol-vo stolbcov}
end;
end;
 
i:=0;
close(g);
 
readkey;
end;
 
 
 
procedure process;
var i:integer;
ix,jx:char;
begin
for i := 1 to length(str) do begin
 
    for ix := 'А' to 'Е' do
      for jx := 'А' to 'Е' do
        if TPolibius[ix, jx] = str[ i ] then begin
          shifr := shifr + ix + jx; break;
        end;
 
  end;
  i := 1;
  while i <= length(shifr) do begin
    ashif := ashif + TPolibius[shifr[ i ], shifr[succ(i)]];
    inc(i, 2);
  end;
readkey;
end;
 
 
 
procedure view;
 
begin
  writeln('Зашифрованое слово: ',shifr);
  writeln('Расшифрованое слово: ',ashif);
readkey;
end;
 
 
begin {main program}
writeln;
while k<>5 do begin
clrscr;
Writeln('1 - Vvod');
Writeln('2 - S4itat s file');
Writeln('3 - Process');
Writeln('4 - View');
Writeln('5 - Exit');
writeln('you choose');
readln(k);
if (k<1) or (k>5) then begin
Writeln ('Diapozon zadn ne verno');
readkey;
end else begin
      case k of
      1:Vvod;
      2:S4et;
      3:process;
      4:view;
      end;
end;
end;
readkey;
end.