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

function sumDigitsNumber(number : integer) : integer;
var
   num : integer;
begin
   result := 0;
   num := abs(number);
   while (num <> 0) do
   begin
      result := result + num mod 10;
      num := num div 10;
   end;
   sumDigitsNumber := result;
end;
 
//######################################################################
 
procedure fillRandomArray(var arr : array of integer; startRange : integer; endRange : integer);
var 
  i : integer;
  
begin
   if length(arr) > 0 then
   begin
      randomize;
      for i := 0 to length(arr) - 1 do arr[i] := random(endRange + 1 - startRange) + startRange;
   end;
end;
 
//######################################################################
 
function toString(arr : array of integer) : String;
var
   i : integer;
begin
   result := '[';
   if length(arr) > 0 then
   begin
      for i := 0 to length(arr) - 1 do
      begin
         result := result + arr[i];
         if i <> length(arr) - 1 then result := result + ', ';
      end;
   end;
   toString := result + ']';
end;
 
//######################################################################
 
function readConsole(text : String; startRange : integer; endRange : integer) : integer;
begin
   result := startRange - 1;
   while (result < startRange) or (result > endRange) do
   begin
      write(text);
      readln(result);
   end;
   readConsole := result;
end;
 
//######################################################################
 
procedure sumNumber(arr : array of integer; var sumArr : array of integer);
var
   i : integer;
   
begin
   if length(arr) = length(sumArr) then
   begin
      for i := 0 to length(arr) - 1 do sumArr[i] := sumDigitsNumber(arr[i]);
   end;
end;
 
//######################################################################
 
var
   arr    : array of integer;
   sumArr : array of integer;
   n      : integer;
   
begin
   n := readConsole('Введите размер массива (1 <= n <= 40): ', 1, 40);
   setLength(arr, n);
   setLength(sumArr, n);
   fillRandomArray(arr, 1, 100);
   sumNumber(arr, sumArr);
   
   writeln('Массив: ', toString(arr));
   write('Массив сум цифр в числе: ', toString(sumArr));
end.