Программа должна в заданном тексте подсчитать количество пробелов - Free Pascal

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

Ваша программа должна в заданном тексте подсчитать количество пробелов

Решение задачи: «Программа должна в заданном тексте подсчитать количество пробелов»

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

var
  s: string;
  i, k: integer;
 
begin
  k := 0;
  Write('Введите строку: '); ReadLn(s);
  for i := 1 to Length(s) do
    if s[i] = ' ' then
      k := k + 1;
  WriteLn('Количество пробелов = ', k);
  ReadLn
end.

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

Объявлены переменные: s (строка), i, k (целое число)
Инициализируется переменная k = 0
Выводится запрос на ввод строки
Считывается строка и сохраняется в переменной s
В цикле перебираются все символы строки s
Если символ равен пробелу, то к переменной k прибавляется 1
По завершении цикла выводится количество пробелов, сохраняемое в переменной k
Завершается работа программы