Шифр перестановки Pascal ABC

var  S,f,d : string;
    key : array[1..5] of integer;
begin
     writeln('Введите ключ: ');
     for j:=1 to 5 do read(key[j]);  //вводим ключ через Enter
     {читаем входную фразу}
     write ('Введите фразу для шифровки: ');
      readln(f);
     f:=f+'    ';
     S:= '';   //создаем пустой буфер
     for i:=1 to length(f) do
     begin
          S:=S+' ';    //задаем размер буфера
     end;
     i:=0; 
     j:=1;
     a:=1; 
     n:=0;
     x:=1;
     {зашифровываем слово}
     while a<=(length(S)) do
     begin
             i:=key[j];
             i:=i+n;
             S[x]:= f[i]; //вставим символ в буфер
             j:=j+1; //отсчитывает позицию в буфере
             if j>5 then
             begin   //проверяем конец блока
                  j:=1;
                  n:=n+5;
             end;
             a:=a+1;
             x:=x+1;
     end;
d:=S;
writeln('Encrypt: ',d);//выводим зашифрованное слово
     {расшифровываем}
     n:=0; 
     x:=1;
     j:=1; 
     a:=1;
     S:= '';   //создаем пустой буфер
     for i:=1 to Length(d) do
     begin
          S:=S+' ';    //задаем размер буфера
     end; i:=0;
     while a<=(length(S)) do
     begin
             i:=key[j];
             i:=i+n;
             S[i] := d[x]; //вставим символ в буфер
             j:=j+1; //отсчитывает позицию в буфере
             if j>5 then
             begin   //проверяем конец блока
                  j:=1;
                  n:=n+5;
             end;
             a:=a+1;
             x:=x+1;
     end;
d:=S;
writeln('Decript: ', d);  //выводим расшифрованное слово
end.