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

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