Дана строка, заканчивающая точкой. Подсчитать, сколько в ней слов (программа на Паскаль)

Program Slovo;
uses crt;
Var s: string;
    i,k: integer;
Begin
  Writeln ('Введите строку');
  Read (s);
  i:=1; k:=k+1;
  While S[i]<>'.' do
      Begin
        if s[i]=' ' then k:=k+1;
        i:=i+1
      End;
  k:=k+1;
  Write('Количество слов в стоке равно ',k);
  Readkey
End.