Про слова, Задача по работе с текстом Опции

[-Студент-]

Здравствуйте. Нужна помощь.
Нужно написать программу, которая бы высчитывала, сколько раз определенное слово (слова) встречается в тексте.
Поискал по форуму. Нашел на форуме пару решенных задачек по работе с текстовыми файлами, но там совсем не то. Помогите кто чем может пожалуйста.

[klem4]

всетаки не совсем верно функция работает, сейчас исправлю

исправлено

Вот посмотри пример вызова, а вообще тебе сюда: Строки

function Count(s, word: String): Byte;
// ...
end;

var
  s, w: string;

begin
  s := 'mila mila mama ramu s milom milamila milamilamila lalala mila';
  w := 'mila';
  writeln(COunt(s, w));
end.