Помогите с простой програмкой reset(f1);

[nanocrew]

Помогите с простой програмкой reset(f1);

Помогите модифицировать программу.
var
a,b,sum: integer;
f1,f2: text;
begin
assign(f1,'input.txt');
assign(f2,'res.txt');
reset(f1);
read(f1,a,b);
sum:=a+b;
rewrite(f2);
writeln(f2,sum);
close(f2);
close(f1);
end.

Это программа считывает первые два числа из файла input.txt, складывает их и записывает в файл res.txt. Как сделать так что бы он считывала ни два первых числа , не первую строку а полностью все что есть txt. как бы копию документа.
Спасибо !

 

[Vladimir_S]

Помогите модифицировать программу.
var
a,b,sum: integer;
f1,f2: text;
begin
assign(f1,'input.txt');
assign(f2,'res.txt');
reset(f1);
read(f1,a,b);
sum:=a+b;
rewrite(f2);
writeln(f2,sum);
close(f2);
close(f1);
end.

Это программа считывает первые два числа из файла input.txt, складывает их и записывает в файл res.txt. Как сделать так что бы он считывала ни два первых числа , не первую строку а полностью все что есть txt. как бы копию документа.
Спасибо !

Очень просто.
Ввести строковую переменную

S:STRING;

Дальше, после того, как оба файла открыты (один - на чтение, другой - на запись), организовать цикл:

REPEAT
ReadLn(f1,S);
WriteLn(f2,S);
UNTIL EoF(f1);

Всё! Не забудьте только в конце закрыть оба файла командой Close.