Простые задчки на файлы, просьба помочь Опции

[Retabol]

Всем привет!
Огромная просьба помочь мне решить две задачи.
Решается оценка(не вру).
1) Дан текстовый файл. Вставить в начало каждой строки ее номер и записать
преобразованные строки в новый файл.
2)Даны файлы F и G, элементами которых являются символы.
Записать в файл H все элементы файлов F и G, сохраняя деление на строки.

ЗЫ. Просьба написать полный текст задачи. Помогите тупому, плз...
Буду очень благодарен....

[Retabol]

Текстовыми можно взять все файлы.
То есть получается:

Var
f,g,h:text;
Ch:Char;
Begin
Assign(f,'F.txt');
Assign(g,'G.txt');
Assign(h,'H.txt');
Reset(f);
ReWrite(h);
While not EOF(f) do
  Begin
Read(f,Ch);
If Ch=#13 then Writeln(h) else Write(h,Ch);
  End;
Close(g);
Close(h);
End.

Выдает ошибку там, где "Close(g)". Типа файл G не был открыт...