Оптимизируйте, пожалуйста, программу (переделать дешифровку и сохранение в файл)

var
   sin, sout, sdecode,k : string;
   a : array of array of integer;
   d, c, i,j,l, n : integer;
   f,q:text;
 
begin
   write('введите кол-во столбцов для шифровки: ');
   Readln(n);
   Assign(f,'input.txt');
  Reset(f);
  While not(eof(f)) do
  begin
   Readln(f, sin);
  end;
   l := length(sin);
   d := l div n;
   if (l mod n) > 0 then inc(d);
   SetLength(a, d);
   for i := Low(a) to High(a) do
      SetLength(a[i], n);
 
   c := 1;
   for i := Low(a) to High(a) do
      for j := Low(a[i]) to High(a[i]) do begin
         a[i,j] := c;
         inc(c);
      end;
 
   c := 1;
   SetLength(sout, l);
   for j := 0 to n - 1 do
      for i := 0 to d - 1 do begin
         sout[c] := sin[a[i,j]];
         inc(c);
      end;
 
   SetLength(SDecode, n*d);
   c:=1;
 
 
   for j := 0 to n - 1 do
      for i := 0 to d - 1 do begin
         sdecode[a[i,j]] := sout[c];
         inc(c);
      end;
 
 
   writeln('шифровка: ',sout);
    for i:=2 to 10 do
 begin
  assign(q, 'output.txt');
  rewrite(q);
  writeln(q, sdecode);
  close(q);
  end;
   writeln('дешифровка: ',sdecode);
end.