Проверьте программу! 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.