Школьное решение в стиле ТурбоПаскаль 1983г.
var
i,n,k:integer;
s,w:string;
begin
Write('Введите строку: ');
Read(s);
w:=''; k:=0;
n:=Length(s);
for i:=1 to n do
if s[i]<>' ' then w:=w+s[i]
else
if Length(w)>0 then begin k:=k+1; w:='' end;
if Length(w)>0 then k:=k+1;
Writeln('Слов -',k);
end.