Проверьте программу!Program f4;var f1, f2 : text; s: string ;begin Assign(f1,'t1.txt');...

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

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