Программа с использованием функций, на С++ и Pascal.

[demon2321]

Вот сама задача: напишите программу, считающую количество слов в строке. При этом выделение слова напишите в виде функции. Напишите программу в С++ и Pascal.

Я не знаю как написать выделение слова в функцию, может так? if((symbol==" ")||(symbol==",")||(symbol=="." ))
{
word_count++
}

И не знаю как сделать так, что бы считывалось все предложение, заранее извеняюсь за тупость, но программирование профилируещий, и к тому же нихрена не учат! Если возможно можно и программу в небольшой реализации!

[Летучий_СкилетиК]

Function fff(a:string):MasSt;
var i, l:integer;
begin
i := 1; l := 0;
while (i <= length(a)) do
begin
     while ((i <= length(a)) and (a[i] = ' ')) do
           inc (i);
     inc(l);
     b[l]:='';
     while ((i <= length(a)) and (a[i] <> ' ')) DO
     begin
          b[l]:=b[l]+a[i];
          inc (i);
     end;
end;