Сортировка

[Romeshek]

Задание: Дана последовательность, элементы которой есть целые двузначные числа. Упорядочить последовательность по возрастанию сумм цифр соответствующих элементов методом естественного слияния.

Это сортировка прямым слиянием:

type mas=array of integer;
var a:mas;
    n:integer;
function Sum(n:integer):integer;
begin
Sum:=n div 10+n mod 10;
end;

procedure Sliv(var a:mas;p,q:integer);
var r,i,j : integer;
    b:mas;
begin
SetLength(b,n);
r:=(p+q) div 2;
i:=p;
j:=r+1;
for var k:=p to q do
if (i<=r) and ((j>q) or (Sum(a[i])<Sum(a[j])))then 
  begin
   b[k]:=a[i];
   i:=i+1;
  end
 else
  begin
   b[k]:=a[j];
   j:=j+1;
  end;
for var k:=p to q do
a[k]:=b[k];
end;

procedure Sort(var a:mas;p,q: integer); 
begin
if p<q then 
 begin
  Sort(a,p,(p+q) div 2);
  Sort(a,(p+q) div 2 + 1,q);
  Sliv(a,p,q);
 end;
end;
begin
randomize;
write('n=');
readln(n);
SetLength(a,n);
writeln('Исходный массив');
for var i:=0 to n-1 do
 begin
  a[i]:=10+random(90);
  write(a[i]:3);
 end;
writeln; 
Sort(a,0,n-1);
writeln('Массив по возрастанию сумм цифр');
for var i:=0 to n-1 do
write(a[i]:3);
end.

Как данную сортировку переделать в сортировку естественным слиянием?
Сколько не искал на просторах интернета, ничего толкового найти не смог.

[min@y™]

Сколько не искал на просторах интернета, ничего толкового найти не смог.

69.png