Создать массив, элементами которого являются суммы цифр каждого элемента исходного массива - PascalABC.NET

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

Дан одномерный массив, который содержит не более 40 целых чисел. Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива. Нужна процедура или функция для данной задачи.

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

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

function sum(a: integer): integer;
var
  s: integer;
begin
  s := 0;
  repeat
    s := s + (a mod 10);
    a := a div 10;
  until a = 0;
  sum := s;
end;
 
var
  i, n: integer;
  a, b: array[1..100] of integer;
 
begin
  write('Введите размерность массива: '); readln(n);
  for i := 1  to n do 
    readln(a[i]);
  writeln('Массив с суммой цифр каждого элемента исходного массива:');
  for i := 1 to n do
  begin
    b[i] := sum(a[i]);
    write(b[i], ' ');
  end;
end.

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

Введенная функция sum принимает целочисленный аргумент a и возвращает сумму цифр этого числа
Внутри функции происходит итеративное вычисление суммы цифр числа a с помощью цикла repeat-until, где a mod 10 дает последнюю цифру числа a, а a div 10 - его целую часть без последней цифры
После вычисления суммы цифр для каждого элемента исходного массива, она присваивается переменной sum
В основной программе вводится размерность массива n с помощью функции readln
С помощью цикла for i := 1 to n происходит считывание элементов исходного массива a с помощью функции readln
Выводится сообщение с заголовком Массив с суммой цифр каждого элемента исходного массива:
С помощью цикла for i := 1 to n происходит вычисление суммы цифр каждого элемента исходного массива a с помощью функции sum и запись результата в элемент массива b с помощью переменной b[i]
С помощью функции write происходит вывод элементов массива b через пробел