var st,kl,kk:string;
    t,tt:array[1..10,1..10] of char;
    n,m,i,j,k:byte;
    x:char;
begin
st:='МАЗУРКЕВИЧ ПЕТР';
writeln(st);
kl:='СКАНЕР';//нужно чтобы ключ состоял из разных букв
kk:=kl;
n:=6;
while length(st) mod n<>0 do
st:=st+' ';
m:=length(st)div n ;
k:=0;
for j:=1 to n do
for i:=1 to m do
 begin
  inc(k);
 // if st[k]=' ' then st[k]:='_';  это лучше убрать
 //делалось для конкретного случая чтобы видеть "пробел" в начале строки
  t[i,j]:=st[k];
 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if kk[i]>kk[j] then
 begin
  x:=kk[i];
  kk[i]:=kk[j];
  kk[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
for j:=1 to n do
write(t[i,j]);
writeln;
for i:=1 to n do
for j:=1 to n do
if kk[j]=kl[i] then
for k:=1 to m do
tt[k,i]:=t[k,j];
writeln('Расшифрованное сообщение');
k:=0;
kk:=''; //составим расшифрованную строку
for j:=1 to n do
for i:=1 to m do
 begin
  k:=k+1;
  kk:=kk+tt[i,j];
 end;
while kk[length(kk)]=' ' do delete(kk,length(kk),1);//уберем добавленные пробелы
write(kk)
end.