Вводится массив. Определить, в каком из чисел наибольшая сумма всех его цифр

type mas = array[1..10] of integer;
var 
i:integer;
mas1:mas;
k:integer;
 
procedure chet( mas1 :mas;var k : integer);
var summ,ost: real;
mas2 : mas; 
i,max:integer;
begin
summ:=0;
     for i:=1 to 10 do begin
        while (mas1[i]>0)   do begin
        ost:= mas1[i] mod 10;
 
         mas1[i]:=mas1[i] div 10;
                writeln(mas1[i],' ' ,ost);
         summ:=summ+ost;
        end;
    mas2[i]:=round(summ);
    summ:=0;
         
    end;
max:=mas2[1];
    for i:=2 to 10 do 
    if mas2[i]>max then max:=mas2[i];   
writeln('maimum=',max);
end;
 
 
begin
Randomize;
 
for i:=1 to 10 do 
    mas1[i]:=random(20);
for i:=1 to 10 do 
    write(mas1[i],' ' );
    writeln();
chet(mas1,k);
 
readln();
end.

program prog;
 
{$MODE FPC}
 
//========================
function DigitSum(value: Integer): Integer;
var
  sum: Integer;
begin
  sum:= 0;
  value:= Abs(value);
 
  while(value <> 0) do
  begin
    Inc(sum, value mod 10);
    value:= value div 10;
  end;
 
  DigitSum:= sum;
end;
 
//========================
const
  N = 5;
var
  i: Integer;
  max: Integer;
  arr: array[1..N] of Integer;
begin
  WriteLn('INPUT ARRAY');
  for i:= 1 to N do
  begin
    Write(i, '\', N, ' -> ');
    ReadLn(arr[i]);
  end;
 
  max:= arr[1];
  for i:= 2 to N do
    if(DigitSum(arr[i]) > DigitSum(max)) then max:= arr[i];
 
  WriteLn('RESULT ', max);
 
  ReadLn;
end.