Подсчитать количество входов слова "мама"

[Vovchik!]

Подсчитать количество входов слова "мама" в строку и вывести номеры первых позицый етих вхождений. Если етого слова в строке нету, то вывести про ето информацыю. Например, строка "мамамамама" имеет 4 вхождения слова которого ищем.

[Abstraction]

Что Вы уже сделали? В чём проблема?
Если пока не сделано ничего, напишите функцию, которая принимает две строки и возвращает true, если первая строка начинается со второй строки и false иначе:

"мама мыла раму", "мама" -> true
"мама мыла раму", "раму" -> false
"мама мыла раму", "ма" -> true
"мама", "мама мыла раму" -> false

[Mad_Cat]

c:=0;
for i:=1 to length(slovo)-3;
if Copy(slovo,i,4)='мама' then inc(c);