Квадрат Полибия

const
  TPolibius: array['A' .. 'E', 'A' .. 'E'] of char = (
  ('A', 'B', 'C', 'D', 'E'),
  ('F', 'G', 'H', 'I', 'K'),
  ('L', 'M', 'N', 'O', 'P'),
  ('Q', 'R', 'S', 'T', 'U'),
  ('V', 'W', 'X', 'Y', 'Z')
  );
function PolibiusEncipher(toCode: string): string;
var
  i: integer;
  ix, jx: char;
  s: string;
begin
  s := '';
  for i := 1 to length(toCode) do begin
 
  for ix := 'A' to 'E' do
  for jx := 'A' to 'E' do
  if TPolibius[ix, jx] = toCode[ i ] then begin
  s := s + ix + jx; break;
  end;
 
  end;
  PolibiusEncipher := s
end;
 
function PolibiusDecipher(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;
  PolibiusDecipher := s
end;
 
var
  s: string;
 
begin
  s := PolibiusEncipher('POLIBIUS');
  writeln(s);
  writeln('s = ', PolibiusDecipher(s));
  readln;
end.

const
  M = 5; //Вертикальный период - т. е. по 5 элементов в столбце.
  N = M - 1; //Верхняя граница индексов в массиве при отсчёте от нуля.
  //Квадрат Полибия.
  Arr : array[0..N, 0..N] of Char = (
    ('A', 'B', 'C', 'D', 'E'),
    ('F', 'G', 'H', 'I', 'J'),
    ('K', 'L', 'M', 'N', 'O'),
    ('P', 'Q', 'R', 'S', 'T'),
    ('U', 'V', 'W', 'X', ' ')
  );
 
//Шифрование.
function Encode(const aStr : String) : String;
var
  S : String;
  i, Len, Row, Col : Integer;
  F : Boolean;
begin
  S := AnsiUpperCase(aStr);
  Len := Length(S);
  SetLength(Result, Len);
  for i := 1 to Len do begin
    F := True;
    for Row := 0 to N do
    for Col := 0 to N do
    if S[i] = Arr[Row, Col] then begin
      Result[i] := Arr[(Row + 1) mod M, Col];
      F := False;
      Break;
    end;
    if F then Result[i] := '?';
  end;
end;
 
//Расшифровка.
function Decode(const aStr : String) : String;
var
  S : String;
  i, Len, Row, Col : Integer;
  F : Boolean;
begin
  S := AnsiUpperCase(aStr);
  Len := Length(S);
  SetLength(Result, Len);
  for i := 1 to Len do begin
    F := True;
    for Row := 0 to N do
    for Col := 0 to N do
    if S[i] = Arr[Row, Col] then begin
      Result[i] := Arr[(Row + M - 1) mod M, Col];
      F := False;
      Break;
    end;
    if F then Result[i] := '?';
  end;
end;
 
//Шифрование.
procedure TForm1.Button1Click(Sender: TObject);
begin
  //Например: Edit1.Text = 'ABCDE FGHIJ KLMNO PQRST UVWX'
  Edit2.Text := Encode(Edit1.Text);
end;
 
//Расшифровка.
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit3.Text := Decode(Edit2.Text);
end;