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

[-Студент-]

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

[klem4]

function Count(s, word: String): Byte;
const
  limits = ['.', ',', ';', '!', '?', ' ']; // можно увеличить список разделителей
var
  p: Byte;
begin
  p := Pos(word, s);
  if (Length(s) = 0) or (p = 0) then Count := 0 else
   if ((p = 1) or (s[pred(p)] in limits))
    and ((s[p + Length(word)] in limits) or
     ((p + Length(word) - 1) = Length(s))) then
      Count := 1 + Count(Copy(s, p + Length(word) + 1, 255), word)
       else Count := 0 + Count(Copy(s, P + Length(word) + 1, 255), word)
end;

Функция вернет количество вхождений слова word в строку s

ps надо потестировать еще.