Дана строка слова в которой разделены пробелом,подсчитайте количество слов в этой строке

Var
  i,k:integer;
  s:string;
begin
  Write('Введите текст: '); Readln(s);
  k:=1;
  for i:=1 to Length(s) do
    if s[i]=' ' then Inc(k);
  Writeln('Количество слов в строке равно ',k)
end.

Пример работы программы
Введите текст: Карл у Клары украл кораллы.
Количество слов в строке равно 5