Подсчитать число слов в строке — Pascal(Паскаль)

{Подсчитать число слов в строке}
program pr1;
var s: string; k,i:integer;
begin write('введите строку:'); readln(s);
      for i:=1 to length(s) do
      if (s[i]=' ') or (s[i]='.') then k:=k+1;
      writeln('число слов в строке =',k)
end.