Заполните массив случайными числами в интервале [100,999] и переставьте их по возрастанию суммы цифр

program Project1;
 
const
  maxelem = 10;
 
function sumdig (n: integer): integer;
{Функция для вычисления суммы цифр в числе}
var
  sum: integer;
begin
  sum := 0;
  if n < 0 then
    n:= - n;
  while n > 0 do
    begin
      sum := sum + (n mod 10);
      n := n div 10;
    end;
  sumdig:= sum;
end;
 
 
 
var
  a: array[1..maxelem] of integer; { Переменная для хранения массива}
  n: integer; { Переменная для хранения значения количества элементов}
  left,right: integer; { Переменные для хранения значений левой и правой границ генератора случайных чисел}
  i,j: integer; { Вспомогательная переменная для организации циклов}
  tmp: integer; { Промежуточная переменная для организации обмена значениями}
begin
  Randomize;
  left:= 100;
  right:= 999;
  write('Введите значение количества элементов (не более ',maxelem,'): ');
  repeat
    Readln(n);
    if (n < 1) or (n > maxelem) then
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;
  until false;
  writeln('Исходный массив:');
  for i:= 1 to n do
    begin
      a[i]:= left + random(right - left + 1); {Заполнение массива случайными числами}
      write(a[i]:5);         {Вывод элементов массива в консоль}
    end;
  {Сортировка "пузырьком"}
  for i:= 1 to n-1 do
    for j:= 1 to n-i do
      if a[j] > a[j+1] then
        begin
          tmp:= a[j];
          a[j]:= a[j+1];
          a[j+1]:= tmp
        end;
  writeln;
  writeln('Массив упорядоченный по возрастанию значений:');
   for i:= 1 to n do
     write(a[i]:5);
  {Сортировка "пузырьком" с применением функции суммы цифр числа}
   for i:= 1 to n-1 do
    for j:= 1 to n-i do
      if sumdig(a[j]) > sumdig(a[j+1]) then
        begin
          tmp:= a[j];
          a[j]:= a[j+1];
          a[j+1]:= tmp
        end;
  writeln;
  writeln('Массив упорядоченный по возрастанию сумм цифр:');
   for i:= 1 to n do
     write(a[i]:5);
  readln;
end.

procedure Sort(var key, data: array of Integer; n: Integer);