Шифрование методом перестановки

const n=6;
var f:text;
    s:string;
    a:array[0..n-1,0..n-1] of char;
    i,j,k:byte;
    z:integer;
begin
assign(f,'Input.txt');
//читаем строку из файла
reset(f);
readln(f,s);
while length(s)<n*n do s:=s+' ';//если меньше 36 символов, добавим в конец пробелы
s:=UpperCase(s); //переведем в верхний регистр
close(f);
//запишем ее в матрицу по столбцам
for i:=0 to n*n-1 do
a[i mod n,i div n]:=s[i+1];
//прочитаем по диагоналям, параллельным побочной
assign(f,'Out.txt');
rewrite(f);
s:='';
for z:=n downto -n+2 do
for j:=0 to n-1 do
if (j+z>0) and (j+z<=n) then
s:=s+a[(n-1)-(j+z)+1,j];
writeln(f,s); //запишем в файл Out.txt
close(f);
//прочитаем зашифрованную строку
reset(f);
readln(f,s);
close(f);
s:=LowerCase(s);//переведем в нижний регистр
//запишем ее в матрицу
k:=0;
for z:=n downto -n+2 do
for j:=0 to n-1 do
if (j+z>0) and (j+z<=n) then
 begin
  inc(k);
  a[(n-1)-(j+z)+1,j]:=s[k];
 end;
//прочитаем по столбцам
s:='';
for j:=0 to n-1 do
for i:=0 to n-1 do
s:=s+a[i,j];
s:=trim(s); //отрубим пробелы
assign(f,'Result.txt');
rewrite(f);
writeln(f,s); //запишем в файл Result.txt
close(f);
writeln('Текст прочитан');
writeln('зашифрованный текст записан в файл Out.txt');
write('расшифрованный текст в файл Result.txt');
end.