задача на одномерный массив с методом слияния

[kunshui]

в одномерном массиве, состоящем из n
вещественных элементов упорядочить элементы массива по
убыванию модулей элементов методом
слияния
слияния

program exc3;
var a,b:array [1..100] of real;
i,n,t:integer;
procedure sl(l,r:integer)
var m,i,j:integer;
begin
m:=(l+r) div 2;
if (l<>r) then
begin
sl(l,m); <= ее напрягает что sl начинается у меня так рано, кажется перед ним вот не хватает чего-то или что
sl(m+1,r);
i:=1;
j:=m+1;
t:=l-1
while (i<=m) and (j<=r) do
begin
t:=t+1;
if abs(a[i])>abs(a[j]) then
begin
b[t]:=a[i];
i:=i+1;
end else
begin
b[t]:=a[j];
j:=j+1;
end;
end;
while (i<=m) do
begin
t:=t+1;
b[t]:=a[i];
i:=i+1;
end;
while (j<=r) do
begin
t:=t+1;
b[t]:=a[i];
j:=j+1;
end;
for i:=1 to r do
b[i]:=a[i];
end;
end;
begin
write ('N=');
readln (n);
for i:=1 to n do
read (a[i]);
sl(1,n);
for i:=1 to n do
write (a[i]:3:1,' ');
readln;
end.

преподаватель сказала что у меня нет части программы которая все обратно соединяет в один массив
помогите пожалуйста D: