Помогите написать программку
 

Здравствуйте, помогите пожалуйста, напишите программу на
Lazarus.
Дано: в текстовом файле fin.txt
находится текст на русском языке.
С клавиатуры вводится число k
Требуется: написать
подпрограмму, которая считает
количество слов в строке и,
используя эту подпрограмму,
сформировать текстовый файл
font.txt, в k-ой строке которого
записанно число, полученное
описанной выше функцией в k-ой
строке файла fin.txt.
Заннее благодарю)))

Лиана, в любом случае не нужно заниматься запрещенным нашими правилами кросспостингом, т.е. распихиванием дубликатов тем по разным разделам. Дубликат удалён.
Сам я, к сожалению, на Lazarus'е и Delphi не пишу, только на обычном Паскале.