Напишите программу, определяющую число слов в строке. Одно слово от другого отделяется одним пробелом — Pascal(Паскаль)

var
 s:string;
 i,r:integer;
begin
 readln(s); //ввод строки
 i:=1;
 while i<=length(s) do begin
  if s[i]=' ' then r:=r+1;
  i:=i+1;
 end;
 writeln(r+1);
 readln;
end.