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

[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:=(1+r) div 2;
if (1<>r) then
begin
sl(l,m);
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]:=abs(a[i]);
i:=i+1;
end else
begin
b[t]:=abs(a[j]);
j:=j+1;
end;
end;
while (i<=m) do
begin
t:=t+1;
b[t]:=abs(a[i]);
i:=i+1;
end;
while (j<=r) do
begin
t:=t+1;
b[t]:=abs(a[i]);
j:=j+1;
end;
for i:=1 to r do
abs(a[i]):=b[i];
end;
end;
begin
write ('N=');
readln (n);
for i:=1 to n do
read (abs(a[i]));
sl(1,n);
for i:=1 to n do
write (abs(a[i]):0:3,' ');
readln;
end.

помогите исправить ошибки, пожалуйста (