Вводится последовательность символов, оканчивающаяся точкой. сосчитать количество слов.в pascal.

Var
 s,q:string;
 i,n,j,m,k,l:longint;
begin
 Readln(s);
 m:=0;
 s:=' '+s+' ';
 for i:=1 to length(s) do  if s[i]<>' ' then
  begin
   if s[i-1]=' ' then l:=i;
   if s[i+1]=' ' then
   begin
      inc(m);
    end;
   end;
 Writeln(m);
end.