Сколько раз встречается данное слово

[n1k1c4]

Здравствуйте! =)
Помогите пожалуйста написать программку на Delphi.

Условие:
Дана строка содержащая несколько слов на русском языке, разделённых одним или несколькими пробелами.
Указать сколько раз встречается данное слово (слово любое).

Заранее thanks...

[Abbatik]

for i:=1 to length(s) do
if copy(s,i,1)=' ' then k:=k+1 else ss[k]:=ss[k]+s[i];
si:=edit1.text;
for i:=1 to k do 
if ss[i]=si then g:=g+1;

label1.text:=inttostr(g);

[n1k1c4]

Abbatik
Спасибо большое, что так быстро откликнулся на моё сообщение.
Но дело в том, что массивы мы ещё не проходили. Дело в том, что пока я на I курсе... вот... =)
Мне вот понятно как найти данное слово, а как посчитать сколько оно встречается в предложении не понятно.
Я так предполагаю, что надо писать какой-то счётчик?

[mihali4]

Но дело в том, что массивы мы ещё не проходили

А в предложенном вам коде нет ни одного массива. Можно, конечно, считать строку или слово массивами символов...
Так без этого - никуда.

[n1k1c4]

mihali4
А ну да, ну да в принципе...
Sorry...