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

[Retabol]

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

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

[Altair]

такое понятие как "inc" мы вообще не используем.

Да inc это просто увеличение значения переменной.

Код

 
var
f,t:text;
i:longint;
fn,s:string;

begin
write('‚ўҐ¤ЁвҐ Ё¬п д ©« :'); readln(fn);
Assign(f,fn);  {связываем переменую f с введенным именем}
reset(f); {отркрываем файл}
write('ўўҐ¤ЁвҐ Ё¬п ЌЋ‚ЋѓЋ д ©« :'); readln(fn);
Assign(t,fn); rewrite(f); {тоже связываем переменную и открываем файл}
while not EOF(F) do {пока нет конца файла повторять:}
begin
inc(i); {увеличить i  на единицу}
readln(f,fn); {прочитать строку из файла}
s:=''; {"обнулить строку"}
str(i,s);{переводим i (длинное целое) в строку, используя процедуру str}
s:=s+' '+fn; {добавляем к строке, строку с номером}
end;
Close(f); Close(t); {close all file}
Writeln('ўбҐ ᤥ« ­­®!');
end.