Отсортировать массив по возрастанию суммы цифр

var  x, sum : integer;
begin
Write('x=');
Readln(x);
x:=abs(x);
sum := 0;
while x > 0 do
  begin
  sum := sum + x mod 10;
  x := x div 10;
  end;
Writeln('сумма цифр=',sum);
end.

program TrickSort;
 
const
  N = 10;
type
  TArray = array[1..N] of integer;
 
  function SumDigits(N: integer): integer;
  var
    R: integer;
  begin
    N := abs(N);
    R := 0;
    while N > 0 do
    begin
      R := R + (N mod 10);
      N := N div 10;
    end;
    SumDigits := R;
  end;
 
  function Cmp(A, B: integer): integer;
  begin
    A := SumDigits(A);
    B := SumDigits(B);
    if A = B then
      Cmp := 0
    else
    begin
      if A > B then
        Cmp := 1
      else
        Cmp := -1;
    end;
  end;
 
  { Сортировка "пузырьком" }
  procedure BubbleSort(var A: TArray);
  var
    i, j: integer;
    x: integer;
  begin
    for i := N downto 2 do
      for j := 2 to i do
        if Cmp(A[j], A[j - 1]) < 0 then
        begin
          x := A[j];
          A[j] := A[j - 1];
          A[j - 1] := x;
        end;
  end;
 
var
  i: integer;
  A: TArray;
begin
  Randomize;
  for i := 1 to N do
    A[i] := random(100);
  for i := 1 to N do
    Write(A[i]: 3);
  writeln;
  BubbleSort(A);
  for i := 1 to N do
    Write(A[i]: 3);
  writeln;
end.