Алгоритм шифрования

uses crt;
var s:string;
    a:array[1..50,1..50] of char;
    n,i,j,k:integer;
begin
writeln('Введите фразу для шифрования');
read(s);
n:=0;
for i:=length(s)downto 1 do
if s[i]<>' ' then inc(n)
else delete(s,i,1);
writeln('Количество символов=',n);
while sqr(trunc(sqrt(n)))<>n do
inc(n);
writeln('Ближайший целый квадрат=',n);
while length(s)<n do
s:=s+chr(192+random(33));
writeln('Фраза для помещения в таблицу: ',s);
n:=trunc(sqrt(n));
k:=0;
For j:=1 to n-1 do
 begin
 {выше побочной диагонали}
  for i:=1 to j do
   begin
    k:=k+1;
    a[i,j-i+1]:=s[k];
   end;
 {ниже диагонали}
  for i:=n downto n-j+1 do
   begin
    k:=k+1;
    a[i,2*n-i-j+1]:=s[k];
   end
 end;
{на диагонали}
for i:=1 to n do
 begin
  k:=k+1;
  a[i,n-i+1]:=s[k];
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end.

k:=0;
for j:=2*n-1 downto 1  do
 begin
  if j>n then
   begin
    if j mod 2=0 then
    for i:=1 to 2*n-j do
     begin
      k:=k+1;
      a[i,i+j-n]:=s[k];
     end
    else
    for i:=2*n-j downto 1 do
     begin
      k:=k+1;
      a[i,i+j-n]:=s[k];
     end
   end
  else if j<=n then
   begin
    if j mod 2=0 then
    for i:=n-j+1 to n do
     begin
      k:=k+1;
      a[i,i-n+j]:=s[k];
     end
    else
    for i:=n downto n-j+1 do
     begin
      k:=k+1;
      a[i,i-n+j]:=s[k];
     end;
   end;
 end;