Запись массива из файла в файл - Pascal ABC

Формулировка задачи:

var
    f,r: file of char;
    c: char;
 i, n: byte;
begin
    assign (f, 'd:\input.txt');
    assign (r, 'd:\output.txt');
    reset (f);
 while not eof (f) do begin
        read (f, c);
        writeln (c);
    end;
rewrite (r);
 for i:=1 to n do begin
 write(f,c);
 readln (c);
        write (r, c);
end;
    close (f);
    close (r);
 
readln
end.

В файл output массив не записывается

Решение задачи: «Запись массива из файла в файл»

textual
                            Листинг программы 
                        

                            var
  f, r: file of char;
  c: char;
  i, n: integer;
  x: array [1..1000] of char;
 
begin
  assign(f, 'input.txt');
  assign(r, 'output.txt');
  
  // Заполнение массива из файла
  reset(f);
  i := 1;
  while not eof(f) do 
  begin
    read(f, c);
    x[i] := c;
    write(x[i], ' ');    
    inc(i);
  end;
  n := i;
  
  // запись массива в другой файл
  rewrite(r);
  for i := 1 to n do 
    write(r, x[i]);
  
  close(f);
  close(r);
end.
                        