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

var 
  s: string; 
  l: integer;
 
procedure chislo_slov(s: string; i: integer);
  begin
    for i:=1 to length(s) do
      begin
        if s[i]=' ' then l+=1;
      end;
  end;
 
begin
  
  write('Введите предложение: ');
  readln(s);
  
  chislo_slov(s,l);
  
  if l=0 then writeln('В предложении 1 слово') else
    if l=1 then writeln('В предложении 2 слова') else
      writeln('В предложении ',l+1,' слов');
 
end.