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

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