Перестановочный шифр с ключевым словом

var st,kl:string;
    t:array[1..10,1..10] of char;
    n,m,i,j,k:byte;
    x:char;
begin
st:='Прикладная математика'; //текст
writeln('Открытый текст');
writeln(st);
for i:=length(st) downto 1 do
if st[i]=' ' then delete(st,i,1);//удалим пробел
kl:='Шифр';//ключ
for i:=1 to length(st) do //переведем ключ в верхний регистр
if kl[i] in ['а'..'я'] then kl[i]:=chr(ord(kl[i])-32);
n:=4; //длина ключа
m:=length(st)div n ;//высота таблицы
//запишем текст в таблицу по строкам
writeln('Текст в исходной таблице для шифрования');
k:=0;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    inc(k);
    t[i,j]:=st[k];
    write(t[i,j]:2);
   end;
  writeln;
 end;
//отсортируем ключ по алфавиту
//и переставим строки
for i:=1 to n-1 do
for j:=i+1 to n do
if kl[i]>kl[j] then
 begin
  x:=kl[i];
  kl[i]:=kl[j];
  kl[j]:=x;
  for k:=1 to m do
   begin
    x:=t[k,i];
    t[k,i]:=t[k,j];
    t[k,j]:=x;
   end;
  end;
writeln('Перестановка столбцов');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(t[i,j]:2);
  writeln;
 end;
//прочитаем таблицу по столбцам
st:='';
for j:=1 to n do
for i:=1 to m do
st:=st+t[i,j];
//переведем в нижний регистр не первую букву
for i:=2 to length(st) do
if st[i] in ['А'..'Я']then st[i]:=chr(ord(st[i])+32);
//переведем в верхний регистр первую букву
if st[1] in ['а'..'я'] then st[1]:=chr(ord(st[1])-32);
writeln('Криптограмма');
write(st);
end.