Шифр монофонической замены

uses crt;
type mas=array [1..5,1..33] of char;
const StartTable: mas =
     (('А','Б','В','Г','Д','Е','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ь','Ы','Ъ','Э','Ю','Я',' '),
      ('Ф','Н','(','Щ','И','Г','Е','R','A','Д','Ы','~','@','S','Л','Я','Ж','^','C','Ш','М','Б','Q','П','Т','Х','Ю','Ъ','Р','}','\',' ','#'),
      ('*','Н','У','Щ','D','+','Е','R','=','Д','Ц','Й','Ч','[','В','Ь',')','O','&','{','М','Б','Q','П','Т','Х','Ю','Ъ','Р','}','\',' ','<'),
      ('Л','Н','(','Щ','И',']','Е','R','%','Д','Ы','~','@','G','/','Я','Э','З','"','Ш','М','Б','Q','П','Т','Х','Ю','Ъ','Р','}','\',' ','W'),
      ('Ф','Н','У','Щ','D','К','Е','R','A','Д','Ц','Й','Ч','S','+','Ь','Ж','^','C','{','М','Б','Q','П','Т','Х','Ю','Ъ','Р','}','\',' ','V'));
 
procedure CodeString(var s: string);
var ShifrTable: mas;
    i,number: byte;
 
procedure Drift(nj: byte; var z: mas);
var i: byte;
    buf: char;
begin
buf:=z[2,nj];
for i:=2 to 4 do
    z[i,nj]:=z[i+1,nj];
z[5,nj]:=buf;
end;
 
function ColumnNumber(c: char): byte;
var i,temp: byte;
begin
ColumnNumber:=0;
for i:=1 to 33 do
    if upcase(c)=StartTable[1,i] then ColumnNumber:=i;
end;
 
begin
ShifrTable:=StartTable;
for i:=1 to length(s) do
    begin
    number:=ColumnNumber(s[i]);
    if number<>0 then
       begin
       s[i]:=ShifrTable[2,number];
       Drift(number,ShifrTable);
       end;
    end;
end;
 
procedure DeCodeString(var s: string);
var ShifrTable: mas;
    i,number: byte;
 
procedure DriftDown(nj: byte; var z: mas);
var i: byte;
    buf: char;
begin
buf:=z[5,nj];
for i:=5 downto 3 do
    z[i,nj]:=z[i-1,nj];
z[2,nj]:=buf;
end;
 
function ColumnNumber(c: char; z: mas): byte;
var i: byte;
begin
ColumnNumber:=0;
for i:=1 to 33 do
    if c=z[2,i] then ColumnNumber:=i;
end;
 
begin
ShifrTable:=StartTable;
for i:=1 to length(s) do
    begin
    number:=ColumnNumber(s[i],ShifrTable);
    if number<>0 then
       begin
       s[i]:=ShifrTable[1,number];
       DriftDown(number,ShifrTable);
       end;
    end;
end;
 
var str: string;
begin
write('str='); readln(str);
CodeString(str);
writeln('str=',str);
DeCodeString(str);
writeln('str=',str);
readkey
end.