Шифрование в delphi

[Ensoph]

Дана таблица 4Х8, в первых ячейках введено ключевое слово, допустим "бандероль", необходимо остальные ячейки заполнить буквами из алфавита по порядку (только исключая те, которые имеются в ключевом слове). Затем зашифровать фразу... (Шифрующие таблицы Трисемуса). В DELPHI!!!

[Stilet]

И что не получается?

[Ensoph]

...остальные ячейки заполнить буквами из алфавита по порядку (только исключая те, которые имеются в ключевом слове).

[Sozialist]

ну насколько я помню буквы алфавита расположены в соответствии с натуральным рядом на определенном промежутке.
т.е.

var 
n,i:integer;
flag:boolean=true;
begin
repeat
n=начальное;
inc(n);
for i:=1 to length(слово{у нас 'бандероль'}) do

  if chr(n)=слово[i] then flag:=false;
if flag then {выполняешь запись в свою таблицу}
until n=конечное;
end;