Код шифра Плейфера

Program pleifer;
var
A: array[0..5, 0..5] of char;
B: array[1..100] of char;
i,j,z,k,l,H,c1,c2,s1,s2,k1,l1:integer;
s,rez:string;
Begin
A[0,0] := 'H'; A[0,1] := 'E'; A[0,2] := 'L'; A[0,3] := 'O'; A[0,4] := 'W';
A[1,0] := 'R'; A[1,1] := 'D'; A[1,2] := 'A'; A[1,3] := 'B'; A[1,4] := 'C';
A[2,0] := 'F'; A[2,1] := 'G'; A[2,2] := 'I'; A[2,3] := 'K'; A[2,4] := 'M';
A[3,0] := 'N'; A[3,1] := 'P'; A[3,2] := 'Q'; A[3,3] := 'S'; A[3,4] := 'T';
A[4,0] := 'U'; A[4,1] := 'V'; A[4,2] := 'X'; A[4,3] := 'Y'; A[4,4] := 'Z';
 
Writeln('Âåäèòå òåêñò');
Readln(s);
For i:=1 to length(s) do
B[i]:= s[i];
H:=0;
For z:=1 to length(s) do BEGIN
For i:=0 to 5 do //begin
For j:=0 to 5 do //begin
//begin
 
if (B[z] = A [i,j]) then begin
H:=H+1;
s1:=i; c1:=j;
Writeln(A[i,j], ' ', s1, ' ', c1); end;
if H = 1 then else if (B[z+1] = A [i,j]) then begin H:=H+1;
s2:=i; c2:=j;
Writeln(A[i,j], ' ', s2, ' ', c2); end;
 
{If H= 2 then else
if s1=s2 then begin H:=0;
k:= s1 ; l:=(c1 + 1) mod 5;
k1:= s2 ; l1:=(c2 + 1) mod 5;
Writeln('IYGL',k,l,' = ',k1,l1);
Writeln(A[k,l],' ',A[k1,l1]);
rez:=rez+A[k,l];
s1:=0; c1:=0;s2:=0;c2:=0;
END
//Writeln(B[z],' = ',k,l, B[z],' = ',k1,l1); end;
else if c1=c2 then begin H:=0;
k:= (s1+1) mod 5; l:=c1;
k1:= (s2+1) mod 5; l1:=c2;
Writeln('ÊÎÎÐÄÈÍÀÒÛ ÁÓÊÂÛ ',k,l,' = ',k1,l1);
Writeln(A[k,l],' ',A[k1,l1]);
rez:=rez + A[k,l];
s1:=0; c1:=0;s2:=0;c2:=0;//Writeln (B[z],' = ',k,l, B[z],' = ',k1,l1);
end
else }
If H=2 then begin H:= 0;
k:= s1 ; l:=c2;
k1:= s2 ; l1:=c1;
Writeln('NIZ',k,l,' = ',k1,l1);
Writeln(A[k,l],' ',A[k1,l1]);
rez:=rez + A[k,l];
//s1:=0; c1:=0;s2:=0;c2:=0;
end;//END;
writeln(rez);
end;
{ if (s1 = s2) then begin
rez:= A[(strtoint(s1) mod 5), (strtoint(c1) + 1) mod 5] + A[strtoint(s2), (strtoint(c2) + 1) mod 5];}
Delete(s,1,2);
//end;
 
 
//end;//end;
end.