Дана nbsp;строчка, заканчивающая точкой. Подсчитать, сколько в ней слов

Program Slovo;
uses crt;
Var s: string;
nbsp;nbsp;nbsp;nbsp;i,k: integer;
Begin
nbsp;nbsp;Writeln (Введите строчку);
nbsp;nbsp;Read (s);
nbsp;nbsp;i:=1; k:=k+1;
nbsp;nbsp;While S[i]lt;gt;. do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if s[i]= then k:=k+1;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;i:=i+1
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;k:=k+1;
nbsp;nbsp;Write(Количество слов в стоке одинаково ,k);
nbsp;nbsp;Readkey
End.