Ввести строку, посчитать количество слов (язык-паскаль_)

var s:string;i,k:integer;nc:boolean;beginreadln(s);for i:=1 to length(s) dobegin if ( (i=1) or (s[i-1]=' ') ) and (s[i]<>' ')   then nc:=true; if (nc=true) and ( (s[i]=' ') or (i=length(s)) then  begin  nc:=false;  inc(k); end;end;writeln(k);end.