Var s:String;i, k:integer;

Begin

Writeln('введите предложение') ;readln(s) ;

K:=0;

For i:=1 to Length(s) do begin

If s[i]=' ' then k:=k+1;

End;

K:=k+1;

Writeln('колво слов в предлодении:', k) ;

End.

Вроде бы так