Домашняя работа. Паскаль. Файлы.

[Ан-ня]

Написать и отладить следующие программы:
1. Подсчитать в текстовом файле количество строк.
2. Подсчитать в текстовом файле количество слов.
3. Найти в текстовом файле слово максимальной длины.
4. Создать новый текстовый файл из исходного, записывая в него только те строки, в которых есть слово 'Procedure'.

[Namolem]

решу за вознаграждение ICQ 3132oO4
или помогу, если есть наработки

[RUSt88]

сделаю за 200 WMR или на счет мобильника
nexx_mp@mail.ru

[Stilet]

Подсчитать в текстовом файле количество строк.

Навскидку:

var f:text;i:integer;s:string;
begin
 assign(f,'textfile.txt');reset(f);
 while not eof(f) do begin readln(f,s);inc(i);end;
 write('Кол-во строк:',i);
 close(f);
end.

А остальные задачи либо по образу и подобию, либо хвастайся наработками )