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

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

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

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

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

  s:=s+' ';
  for i:=1 to Length(s)-1 do
    if s[i] in ['0'..'9'] then begin
      w:=w+s[i]; Inc(n,Ord(s[i])-Ord('0'))
    end else begin
      if mn<n then begin
        mw:=w; mn:=n;
      end;
      w:=''; n:=0;
    end;
  WriteLn(mw);

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

В данном коде на языке Pascal реализуется алгоритм поиска числа, сумма цифр которого максимальна.

Переменная s содержит строку целых чисел, например, 123 456 789.
В цикле от 1 до длины строки (используется функция Length(s)-1) происходит проверка каждого символа строки s.
Если символ является цифрой от 0 до 9 (проверка с помощью оператора in), то он добавляется к переменной w, а значение его порядкового номера (от 0 до 9) добавляется к переменной n.
Если символ не является цифрой, то проверяется, является ли текущая сумма цифр (переменная n) больше, чем максимальная сумма (переменная mn). Если это так, то значения переменных mw и mn обновляются. Затем переменные w и n очищаются.
В конце программы выводится на экран значение переменной mw, которое представляет собой число с максимальной суммой цифр.