Изменить строку, чтоб все слова в ней были записаны с большой буквы - Pascal ABC

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

Дана стартовая строка. Изменить стартовую строку так, чтобы все слова в ней были записаны с большой буквы. Спасибо за внимание!

Решение задачи: «Изменить строку, чтоб все слова в ней были записаны с большой буквы»

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

var
  S: string;
  i: integer;
 
begin
  Write('Введите строку: ');
  Readln(S);
  S[1] := UpCase(S[1]);
  for i := 1 to Length(S) do
    if S[i] = ' ' then
      S[i + 1] := UpCase(S[i + 1]);
  Writeln(S);
  Readln;
end.

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

В начале объявляются переменные S и i типа string и integer соответственно.
Затем идет команда Write, которая выводит на экран сообщение Введите строку:.
После этого с помощью функции Readln считывается введенная пользователем строка и сохраняется в переменной S.
Далее, с помощью оператора [[]] и функции UpCase, первая буква введенной строки преобразуется в верхний регистр.
Затем, с помощью цикла for, происходит проверка каждого символа в строке. Если текущий символ является пробелом, то следующий за ним символ преобразуется в верхний регистр с помощью функции UpCase.
По окончании проверки всех символов, на экран выводится преобразованная строка с помощью команды Writeln.
Наконец, с помощью функции Readln считывается следующий ввод пользователя и цикл завершается.