unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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;

end.