Здравствуйте, Бакумова Ю.В.!

Реализован первый вариант «квадрата Полибия»:

Для шифрования на квадрате находили букву текста и вставляли в шифровку нижнюю от неё в том же столбце. Если буква была в нижней строке, то брали верхнюю из того же столбца.

Смотрите приложение. Delphi 6. Консоль.
ps: вопросы задавайте в минифорум.
Удачи!

Приложение:
program q187867;

{$APPTYPE CONSOLE}

uses
SysUtils;
{
function Polybey- функция кодирования/декодирования входящей строки
cLine:string-входящая строка
pLine:string-строка пароль
szLine:integer-размер строки в квадрате Полибия
Direct:integer-кодирование/декодирование
}
function Polybey(cLn:string;pLn:string;
szLn:integer;cDr:integer):string;
var
a:string;
b:integer;
begin
a:='';{строка результата}
b:=length(pLn);{длина строки}
pLn:=pLn+pLn;{повторяем пароль для упрощения кодирования/декодирования}
while length(cLn)>0 do{повторяем пока есть символы во входящей строке}
begin
if(pos(cLn[1],pLn)+cDr*szLn)>0{проверяем граничные условие}
then a:=a+pLn[pos(cLn[1],pLn)+cDr*szLn]{обычное кодирование/декодирование}
else a:=a+pLn[pos(cLn[1],pLn)+cDr*szLn+b];{кодирование/декодирование в граничных условиях}
delete(cLn,1,1);{удаляем закодированный символ}
end;
Polybey:=a;{возвращаем результат}
end;
var
currentLine,passwordLine:string;
currentSize,currentDirection:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
{
контрольная строка пароля
passwordLine:='qwertyuiopasdfghjklzxcvbnm,.- ';}
{вводим строку пароль}
write('Please enter pasword line:');
readln(passwordLine);
{вводим количество символов в одной строке квадрата Полибия}
write('Please enter cuurrent size password line:');
readln(currentSize);
repeat
{вводим режим работы кодирования/декодирования}
repeat
write('Pease enter current dirrection[0-code|1-decode]');
readln(currentDirection);
until abs(currentDirection)<=1;
{вводим строку}
write('Please enter current line:');
readln(currentLine);
{выводим результат работы}
writeln('Result:',Polybey(currentLine,passwordLine,
currentSize,(1-2*currentDirection)),' ;');
{если нужно повторяем}
write('repeat[0-yes|1-no]');
readln(currentDirection);
until currentDirection>0;
end.