действие над файлами {pascal}

[backspace567]

1. Написати програму, яка виконує наступні дії:
- створює новий файл та поміщає в нього три рядки тексту;
- виводить на очищений екран інформацію, яка знаходиться у файлі;
- добавляє два рядки тексту до існуючого файлу;
- виводить на очищений екран інформацію, яка знаходиться у файлі;

2. Написати програму, яка читає з текстового файлу DATA.TXT інформацію, яка представлена у вигляді цілих чисел, розташованих по одному у кожному рядку, та виводить на екран суму цих чисел. Зауваження файл з даними створити за допомогою текстового редактора, або за допомогою команд операційної системи (можна за допомогою програми БЛОКНОТ)

[backspace567]

uses crt;

var
f1,f2:text;
a,b,c,e,f:string;

begin
assign(f1, 'input.txt'); // связь переменной с файлом на диске
rewrite(f1); //открываем файл для записи
writeln('stroka 1... ');
readln(a);
writeln('stroka 2... ');
readln(b);
writeln('stroka 3... ');
readln(c);

clrscr;
writeln(f1, a);
writeln(f1, b);
writeln(f1, c);
close(f1); //заканчиваем роботу с 1м файлом

writeln('soderjimoe pervogo faula');
reset(f1);//открываем файл для чтения
while not eof(f1) do
begin
readln(f1,a);
writeln(a);
readln(f1,b);
writeln(b);
readln(f1,c);
writeln(c);
end;
close(f1);
delay(2000);
clrscr;

assign(f2,'output.txt');// связь переменной с файлом на диске
rewrite(f2); //открываем файл для записи
writeln('stroka 1... ');
readln(e);
writeln('stroka 2...');
readln(f);

writeln(f2, e);
writeln(f2, f);
close(f2);

writeln('soderjimoe vtorogo faula');
reset(f2);
while not eof(f2) do
begin
readln(f2,e);
writeln(e);
readln(f2,f);
writeln(f);
end;
close(f2);
delay(2000);
clrscr;
end.


но как теперь из output перенести две строки в input я не знаю помогите плз