Дана строка, содержащая пробелы. Найдите, сколько в ней слов - Free Pascal

Формулировка задачи:

Дана строка, содержащая пробелы. Найдите, сколько в ней слов (слово – это последовательность непробельных символов, слова разделены одним пробелом, первый и последний символ строки – не пробел). Входные данные На вход подается несколько строк. Выходные данные Необходимо вывести количество слов в первой из введенных строк. Примеры входные данные In the town where I was born выходные данные 7

Решение задачи: «Дана строка, содержащая пробелы. Найдите, сколько в ней слов»

Листинг программы

if Length(s)>0 then begin
   CountWord := 1;
   for i:=1 to Length(s) do 
     if s[i]=' ' then Inc(CountWord);
end
  else    CountWord := 0;
WriteLn('В строке ',   CountWord, ' слов.');

Объяснение кода листинга программы

Проверяется, что длина строки больше 0.
Если условие выполняется, то инициализируется переменная CountWord со значением 1.
Происходит цикл по символам строки.
Если текущий символ равен пробелу, то значение переменной CountWord увеличивается на 1.
После завершения цикла, выводится количество слов в строке.