Расположить числа в порядке возрастания сумм их цифр

Program Zadanie5;
Var 
m : integer;
n: array [1..6] of integer;
i: integer;
s: integer;
q: integer;
begin
readln(m);
for i:=1 to m do 
readln(N[i]);   
 for i:=1 to m do
 begin
 s:=0;
 while (N[i]<>0) do
      begin
        q:= N[i] mod 10;
        s:= s + q;
        N[I]:= N[i] div 10;
 end;
 end;
 end.

const
    nMax= 6;
procedure SwapElements(var x, y: Word);
var
    z: Word;
begin
    z := x;
    x := y;
    y := z;
end;
 
function Sum(x: Word): Byte;
var
    Result: Byte;
begin
    Result := 0;
    repeat
        Inc(Result, x mod 10);
        x := x div 10;
    until (x = 0);
    Sum := Result;
end;
 
function Compare(const x, y: Word): Boolean;
var
    Result: Boolean;
    sum1, sum2: Byte;
begin
    sum1 := Sum(x); sum2 := Sum(y);
    if (sum1 < sum2)
    then
        Result := False
    else
        if (sum1 > sum2)
        then
            Result := True
        else
            Result := (x > y);
    Compare := Result;
end;
var
    a: Array[1..nMax] Of Word;
    i, n, j: 1..nMax;
begin
    repeat
        Write('Input n (1..', nMax, ')=');
        ReadLn(n);
    until (n in [1..nMax]);
    Randomize(); WriteLn; Write('Original Array:');
    for i := 1 to n do
    begin
        a[i] := Random(999) + 1;
        Write(a[i]:4);
    end;
    WriteLn; Write('  Sorted Array:');
    for i := 1 to n - 1 do
        for j := 1 to n - i do
            if (Compare(a[j], a[j + 1]))
            then
                SwapElements(a[j], a[j + 1]);
    for i := 1 to n do
        Write(a[i]:4);
end.

Program Zadanie5;
function summa(n:integer):integer;
var m,s:integer;
begin
m:=abs(n);
s:=0;
while m>0 do
 begin
  s:=s+ m mod 10;
  m:=m div 10;
 end;
summa:=s;
end;
var n: array [1..5] of integer;
    m,i,j,x: integer;
begin
repeat
write('Введите количесто чисел от 2 до 5 m=');
readln(m);
until m in [2..5];
writeln('Введите числа');
for i:=1 to m do
readln(N[i]);
for i:=1 to m-1 do
for j:=i+1 to m do
if(summa(n[i])>summa(n[j]))or((summa(n[i])=summa(n[j]))and (n[i]>n[j]))then
 begin
  x:=n[i];
  n[i]:=n[j];
  n[j]:=x;
 end;
writeln('Числа в порядке возрастания сумм цифр');
for i:=1 to m do
write(n[i],' ')
end.