Question

проверьте программу!
Program f4;
var f1, f2 : text;
    s: string ;
begin
  Assign(f1,'t1.txt');
  Assign(f2,'t2.txt');
  Reset(f1);
  Rewrite(f2);
  while not eof(f1) do
  begin
    readln(f1, s);
    writeln(f2,s);
  end;
  close(f1);
  close(f2);
end.

Answer 1

Проверил, ошибок нет. Входной файл переписывается в выходной.