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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.