Работа с файлами, Pascal

[protrence]

Есть два текстового (.txt) файла с разными текстами, создать третий файл который будет содержать текст первого и второго файла.

Заранее спасибо!

[Hacker19_90]

assign (fin1, 'input1.txt');
reset (fin1);
assign (fin2, 'input2.txt');
reset (fin2);
assign (fout, 'output.txt');
rewrite (fout);
while not(eof(fin1)) do
begin
    readln (fin1, s);
    writeln (fout,s);
end;
close(fin1);
while not(eof(fin2)) do
begin
    readln (fin2, s);
    writeln (fout,s);
end;
close(fin2);
close (fout);

[protrence]

Пробовал, прописал с program, uses, var - пишет ошибку про "begin", типо говорит что надо его перед ВАР зачем-то ставить, или после, но после стоит...

[Hacker19_90]

Код покажите!