Дан массив из N натуральных чисел, не превышающих 999. Расположить их по возрастанию суммы их цифр

const
  n=6; W=4;
type
  TCmpFunc=function(a, b: Integer): Integer;
procedure sort(var a: array of Integer; cmp: TCmpFunc);
var i, t: Integer; Done: Boolean;
begin
  repeat
    Done:=True;
    for i:=0 to High(a)-1 do
      if cmp(a[i],a[i+1])>0 then begin
        t:=a[i]; a[i]:=a[i+1]; a[i+1]:=t; Done:=False;
      end;
  until Done;
end;
function dsum(a: Integer): Integer;
var s: Integer;
begin
  s:=0; repeat s:=s+a mod 10; a:=a div 10; until a=0; dsum:=s;
end;
{$F+}
function cmp(a, b: Integer): Integer;
var c: Integer;
begin
  c:=dsum(a)-dsum(b);
  if c=0 then cmp:=a-b else cmp:=c;
end;
{$F-}
var
  a: array [1..n] of Integer;
  i: Integer;
begin
  Randomize;
  for i:=1 to n do a[i]:=1+Random(999);
  WriteLn('A='); for i:=1 to n do Write(a[i]:W); WriteLn;
  sort(a,cmp);
  WriteLn('A''='); for i:=1 to n do Write(a[i]:W); WriteLn;
end.