Пожалуйста посчитайте с Информатикой ПАСКАЛЬ!!!

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.