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

Var
   S:string;
   i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
k:=0;
i:=1;
Repeat
if (S[i] = ' ')or(S[i] = ',')or(S[i] = ':')or(S[i] = ';')or(S[i] = '?')or(S[i] = '!') then
   if not((S[i+1] = ' ')or(S[i+1] = ',')or(S[i+1] = ':')or(S[i+1] = ';')or(S[i+1] = '?')or(S[i+1] = '!')) then
      k:=k+1;
i:=i+1
Until S[i] = '.';
WriteLn('Количество слов: ',k+1);
End.