Шифрование перестановкой. вводится текст. выписываем этот текст не по строкам а по столбцам слева на право, получаем шифрованный текст. составить программу, шифрующую исходный текст перестановкой с помощью таблицы- Pascal(Паскаль)

uses crt;
const nmax=5;
var a:array[1..nmax] of string[50];//общее количество символов не более 255
    s:string;
    n,i,j,mx:byte;
begin
clrscr;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n,' строк длиной до 50 символов');
mx:=0;
for i:=1 to n do
 begin
  readln(a[i]);
  if length(a[i])>mx then mx:=length(a[i]);//самая длинная строка
 end;
writeln;
s:='';
for j:=1 to mx do//по длине строк
for i:=1 to n do//по строкам
if j<=length(a[i]) then s:=s+a[i][j];//если еще в строке, то берем символ j из строки i
write(s);
readln
end.