Сортировка массива по неубыванию суммы делителей элементов

var m, sum, i, j, k: integer;
  sn: array of integer;
begin
  writeln('Введите m:');
  readln(m);
  setlength(sn,m);
  sum:=0;
  for i:=1 to m do
    begin
      for j:=1 to i do
        if i mod j=0 then
          sum:=sum+j;
      sn[i-1]:=sum;
      writeln('Сумма делителей числа n=',(i),': ',sum);
      sum:=0;
    end;
  for i:=m downto 1 do
    for j:=m-i downto 1 do
      if sn[j]<sn[j-1] then
        begin
          k:=sn[j];
          sn[j]:=sn[j-1];
          sn[j-1]:=k;
        end;
  for i:=1 to m do
    writeln(sn[i-1]);
end.

function s(n: integer): integer;
begin
  result := 0;
  for var j := 1 to n do
    if n mod j = 0 then result := result + j;  
end;
 
var
  m, k: integer;
  n: array of integer;
 
 
begin
  writeln('Введите m:');
  readln(m);
  setlength(n, m);
  for var i := 1 to m do n[i - 1] := i;
  
  for var i := m downto 1 do
    for var j := m - i downto 1 do
      if s(n[j]) < s(n[j - 1]) then
      begin
        k := n[j];
        n[j] := n[j - 1];
        n[j - 1] := k;
      end;
  for var i := 1 to m do
  begin
    write(n[i - 1]:3);
    writeln(s(n[i - 1]):5); // для проверки
  end;
end.