Дан текст. Удалить лишние пробелы, если последняя буква первого слова совпадает с первой буквой последнего - Pascal

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

Дан текст, слова которого отделяются друг от друга одним или несколькими пробелами. Удалить лишние пробелы, если последняя буква первого слова совпадает с первой буквой последнего слова. Распечатать исходный тест, первое и последнее слова, полученный текст.

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

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

  i:=1;
  while i<=length(text) do
    if text[i]<>' ' then
      break
    else
      inc(i);

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

Устанавливаем значение переменной i равным 1.
Начинаем цикл while, который будет выполняться до тех пор, пока i меньше или равно длине текста.
Проводим проверку: если символ в позиции i текста не равен пробелу, то выходим из цикла при помощи оператора break.
Если условие не выполнено (т.е. символ в позиции i равен пробелу), то увеличиваем значение i на единицу (операция inc(i)) и повторяем цикл.