Подпрограмма сортировки массива по возрастанию среднего арифметического всех цифр в числе

const n = 10;
function av(n : Integer) : Real;
begin
  var(count,sum):=(0,0);
  repeat
    count+=1;sum+=n mod 10;n:=n div 10;
  until n=0;
  Result:=sum/count;
end;
procedure sort(var a : array of Integer) := a := a.OrderBy(v->av(v)).ToArray;
begin
  var a := ArrRandomInteger(n, -30000, 30000);
  a.Println;
  sort(a);
  a.Println;
end.

program sortmass;
// Программа сортировки массива по возрастанию среднего арифметического цифр элементов массива
 
const
n = 5; // Количество элементов массива.
type
Tmas = array[1..n] of longint; 
 
procedure sort(var m: Tmas);
var //Основная процедура, которая осуществляет сортировку по возрастанию среднего арифметического
    //цифр десятичных разрядов значений элементов массива.
Digit: Integer; // Переменная для найденной цифры из числа. 
k: integer;// Переменная счетчика количества разрядов.
p: longint;// Промежуточная переменная, нужная для сортировки элементов массива.
sum: longint;// Переменная для суммирования чисел разрядов.
areth: longint;// Переменная для среднего арифметического, вычисленного из разрядов чисел.
begin
 for var i:=1 to n do
 begin
  k:=0; // Присваеваем переменным нули перед каждым циклом.
  sum:=0;
  repeat 
    inc(k);
    m[i]:=abs(m[i]); // Отбрасываем знак значений элемента.
    Digit := m[i] mod 10;
    sum:=sum+digit; // Вычисляем сумму разрядов элемента массива.
    areth:=sum div k;// Вычисляем среднее арифметическое из разрядов элемента массива. Результат целочисленый!
    m[i] := m[i] div 10;
  until m[i] = 0;
  m[i]:=areth; //Вместо начальных значений элементов вставляем в массив значения среднего арифметического. 
end;
 
for var i := 1 to n-1 do // Сортируем массив по возрастанию.
        for var j := 1 to n-i do
            if m[j] > m[j+1] then 
             begin
                p := m[j];
                m[j] := m[j+1];
                m[j+1] := p
             end;
 
end;
 
var
b: Tmas; // Промежуточный массив.
 
begin // Тестовая часть программы.
randomize;
writeln('Массив случайных чисел:');
for var i:=1 to n do // Заполняем массив b случайными числами в диапазоне от - 30000 до 30000.
begin
b[i]:=random(60000)-30000;
write(b[i],' ');
end;
writeln();
sort(b);// Вызываем основную процедуру и передаем ей массив заполненный случайными числами.
writeln();
writeln('Массив отсортированного среднеарифметического значения чисел:');
for var i:=1 to n do // Выводим результаты работы процедуры на экран.
write(b[i],' ');
 
 
end.