ошибка в выполнении программы

[dearkato]

помогите исправить код программы, не могу понять почему там ошибка.
задание: поменять местами содержимое файлов А и В.

const
  f1Name= 'a.txt';
  f2Name= 'b.txt';
  f3name= 'c.txt';
var
a: TextFile; 
b: TextFile;
c: TextFile;
buf: String;
begin
  AssignFile(a, f1Name);
  AssignFile(c, f3Name);
  reset(a);
  rewrite(c);
  while not eof(a) do
    begin
      readln(a,buf);
      writeln(c,buf);
    end;
  CloseFile(a);
  CloseFile(c);
 
  AssignFile(b, f2Name);
  AssignFile(a, f1Name);
  reset(b);
  rewrite(a);
  while not eof(b) do
    begin
      readln(b,buf);
      writeln(a,buf);
    end;
  closefile(a);
  CloseFile(b);
  
  AssignFile(c,f3name);
  AssignFile(b,f2name);
  while not eof(c) do     //ошибка вылетает на этой строчке
    begin
      readln(c,buf);
      writeln(b,buf);
    end;
  CloseFile(c);
  CloseFile(b);
end.

пишет I/O error 104

ошибка найдена

...
  AssignFile(c,f3name);
  AssignFile(b,f2name);
  Reset(c); //Добавлено.
  Rewrite(b); //Добавлено.
  while not eof(c) do
...

[crystalbit]

rewrite/reset забыл

[Hacker19_90]

 AssignFile(c,f3name);
  AssignFile(b,f2name);
  while not eof(c) do     //ошибка вылетает на этой строчке
    begin
      readln(c,buf);
      writeln(b,buf);
    end;
  CloseFile(c);
  CloseFile(b);

rewrite/reset забыли