---

  begin
    count := count + 1;
    // Отрезаем строку до найденного слова включительно
    Delete(s, 1, p + 2); // p + 2, так как длина "кот" = 3
    p := Pos('кот', s);
  end;
  
  writeln('Слово "кот" встречается раз: ', count);
end.