Создать программу шифровки/дешифровки (шифрование перестановкой)

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
   f,key,f1:string;
   c,i,s,j,a:Integer;
 
begin
  Writeln ('сколько символов в одном блоке ');
 
  Readln(c);
 
  Writeln ('введите ключ из ',c,' цифр от 1 до ',c,':');
  readln(key);
  Writeln ('введите текст для фишровки ');
  readln (f);
  s:=length(f);
  i:=0;
  while i<=s do
  begin
    i:=i+c;
    for j:=1 to length (key) do
    begin
      a:=ord (key[j])-ord(0);
      f1[j]:=f[a];
      end
 
  end;
  Writeln(f1);
end.

program Project2;
{$APPTYPE CONSOLE}
Uses  SysUtils;
Var  nSim, LOnCryptText, i : Integer; 
      j, bkey : Byte; 
      OnCryptText, CryptText, key : String;
 
Begin
  Writeln ('сколько символов в одном блоке ');
  Readln(nSim);
  Writeln ('введите ключ из ',nSim,' цифр от 1 до ',nSim,':');
  Readln(key);
  Writeln ('введите текст для шифровки ');
  Readln (OnCryptText);
  LOnCryptText:=Length(OnCryptText);
  i:=0;
  CryptText:='';
  Repeat
    For j:=1 to nSim do
      begin
        bkey:=Byte(key[j]) and $0F;
        If bkey = 0 then Break;
        If i + bkey <= LOnCryptText then
          CryptText:=CryptText + OnCryptText[i + bkey];
      end;
    i:=i + nSim;  //Следующий блок текста
  Until (i>=LOnCryptText) or (bkey=0);
  If bkey = 0 then Writeln ('Ключ содержит недопустимую цифру 0 ');
  Else
    begin
      Writeln ('Зашифрованный текст: ');
      Writeln (CryptText);
    end;
  Readln;
End.