Шифрование методом Полибия

program Polibiy;
const
  TPolibius: array['А' .. 'Ё', 'А' .. 'Ё'] of char =(
    ('А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ё'),
    ('Ж', 'З', 'И', 'Й', 'К', 'Л', 'М'),
    ('Н', 'О', 'П', 'Р', 'С', 'Т', 'У'),
     ('Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Ъ'),
      ('Ы', 'Ь', 'Э', 'Ю', 'Я', '0', '1'),
       ( '2','3', '4', '5', '6', '7', '8'),
      ('9', ' ', ',', '.', '!', '?', ';')
      );
function PolibiusEncipter(toCode: string): string;
var
  i: integer;
  ix, jx: char;
  s: string;
begin
  s := '';
  for i := 1 to length(toCode) do begin
 
    for ix := 'А' to 'Ё' do
      for jx := 'А' to 'Ё' do
        if TPolibius[ix, jx] = toCode[ i ] then begin
          s := s + ix + jx;
        end;
 
  end;
  PolibiusEncipter := s
end;
 
function PolibiusDecipter(toDecode: string): string;
var
  i: integer;
  s: string;
begin
  s := '';
  i := 1;
  while i <= length(toDecode) do begin
    s := s + TPolibius[toDecode[ i ], toDecode[succ(i)]];
    inc(i, 2);
  end;
  PolibiusDecipter := s
end;
 
var
  s: string;
 
begin
  s := PolibiusEncipter('атата');
  writeln(s);
  writeln('s = ', PolibiusDecipter(s));
end.