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

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