шифр Трисемус в паскале

[ВалерОК]

Разработать программу основанную на шифре Трисемус. Программа должна выводить саму таблицу с алфавитом и ключевое слово в нйм, причем ключевое слово мы должны вводить с клавиатуры как и слово которое необходимо зашифровать.

[gaw4]

если с нуля, то ася в подписи, помогу

[ВалерОК]

uses crt;
    const alphabet:array[1..4,1..8] of char =
        (('Б', 'А', 'Н', 'Д', 'Е', 'Р', 'О', 'Л'),
         ('Ь', 'В', 'Г' ,'Ж', '3', 'И', 'Й', 'К'),
         ('М', 'П', 'С', 'Т', 'У', 'Ф', 'X', 'Ц'),
         ('Ч', 'Ш', 'Щ', 'Ы', 'Ъ', 'Э', 'Ю', 'Я'));
         
Function encode(c:char):char;
    var i,j:integer;
Begin
    for i:=1 to 4 do
        for j:=1 to 8 do
            if (c = alphabet[i][j]) then
            Begin
                if (i <> 4) then encode:=alphabet[i+1][j]
                else encode:=alphabet[1][j];
            End;
End;
Function decode(c:char):char;
    var i,j:integer;
Begin
    for i:=1 to 4 do
        for j:=1 to 8 do
            if (c = alphabet[i][j]) then
            Begin
                if (i <> 1) then decode:=alphabet[i-1][j]
                else decode:=alphabet[4][j];
            End;
End;
     var s:string;
         i:integer;
begin
  s:='ВЫЛЕТАЕМПЯТОГО';
  WriteLn(s);
 
  for i:=1 to length (s) do
    s[i]:=encode(s[i]);
  WriteLn(s);
 
  for i:=1 to length (s) do
    s[i]:=decode(s[i]);
  WriteLn(s);
  Readln;
end.

чет тип этого, но чтоб ключевое слово(здесь БАНДЕРОЛЬ) и само слово для шифровки вводилось с клавиатуры, и на экран выводился прямоугольник с ключевым слом и алфавитом



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.