Задание в Pascal ABC

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

Дана строка. Группы символов, разделённых пробелами (одним или несколькими) и не содержащим пробелов внутри себя будем называть словами. Подсчитать количество слов в данной последовательности. Помогите, пожалуйста.

Решение задачи: «Задание в Pascal ABC»

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

Program forum;
 uses crt;
 var
  s :String;
   i,j:integer;
begin
j:=1;
  clrscr;
  Write('Введите строку: ');
  readln(s);
  for i:=1 to Length(s) do
     begin
     if(s[i]=' ')then Delete(s,i,1)
     else if(s[i]<>' ')and (s[i+1]=' ') then    j:=j+1;
     end;
      if(s[length(s)]=' ') then j:=j-1;
  writeln('количество строк: ',j);
end.

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

Программа начинается с объявления использования библиотеки crt и определения переменной s типа String и двух целочисленных переменных i и j.
Строка кода clrscr очищает экран перед вводом строки.
Затем идет запрос на ввод строки, который записывается в переменную s.
Далее следует цикл for, который выполняется от 1 до длины строки s.
Внутри цикла проверяется каждый символ строки.
Если текущий символ является пробелом, то он удаляется из строки.
Если текущий символ не является пробелом и следующий символ также является пробелом, то увеличивается значение переменной j на единицу.
Если последний символ строки является пробелом, то значение переменной j уменьшается на единицу.
В конце программы выводится сообщение с количеством строк в строке s.