Дана строка целых чисел. Составить программу, которая вычисляет сумму первых цифр всех чисел данной строки - Pascal

1. Дана строка целых чисел. Составить программу, которая вычисляет сумму первых цифр всех чисел данной строки.

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

  s:=' '+s;
  for i:=2 to Length(s) do if (s[i-1]=' ') and (s[i] in ['0'..'9']) then Inc(n,Ord(s[i])-Ord('0'));
  WriteLn(n);

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

Переменная s содержит строку чисел, разделенных пробелами.
В первой строке кода пробел добавляется в начало строки s с помощью оператора = и конкатенации строк.
Затем выполняется цикл for от индекса 2 до длины строки s.
Внутри цикла проверяется, является ли предыдущий символ пробелом, а текущий символ - цифрой от 0 до 9.
Если условие выполняется, то к переменной n прибавляется значение текущей цифры, полученное с помощью функции Ord, которая возвращает числовое представление символа, и вычитает числовое представление символа '0'.
По завершении цикла выводится значение переменной n.