Подкорректировать программу,паскаль

[Карина Т_Т]

Друзья, вот код моей программы

Var i:byte; 

S,Slovo:string;  

count:byte;
Begin 

Clrscr; 

Write (' текст: '); 

Readln (S); 

S:=' '+S+' '; 

Count:=0; 

i:=1;

while i<=length(S)-1 do 

Begin 

If (S[i]=' ') and (S[i+1]<>' ') 

Then 

Begin 

Slovo:=''; 

While (S[i+1]<>' ') do 

Begin 

Slovo:=Slovo+S[i+1]; 

i:=i+1; 

End; 

If Slovo[1] = Slovo[length(Slovo)] 

Then count:=count+1; 

End; 

i:=i+1; 

End; 

Writeln (' ',count); 

End.

Она выдает количество слов с одинаковой начальной и конечной буквой. Мне же нужно,что бы оно просто подсчитывало слова.Помогите.плиз

[ZX Spectrum-128]

Как вариант:
Количество_слов=количество_пробелов +1

[Poma][a]

Не          уверен,что        сработает...

[Карина Т_Т]

Сообщение от ZX Spectrum-128

Как вариант:
Количество_слов=количество_пробелов +1

Не выходит (

[ZX Spectrum-128]

Почему?

count:=0;
For i:=1 to length(slovo) do
  If slovo[i]=' ' then
    Count:=count+1;
Inc(count);

Проверьте на "мама мыла раму"
Проблема возникнет при тире.

При тексте, оформленном НЕ по правилам ря, конечно будут проблемы.

[Poma][a]

Правила "ря" не регулируют кол-во пробелов..

[ZX Spectrum-128]

Это плохо, что не регулируют. Надо будет подать идею в минобр: промежуток между словами - один пробел.

Топикстартеру
Ну тогда вбить в поиск на форуме разбиение строки на слова или подсчет количества слов. Решалось много-много раз.