Паскаль.Ошибка

[Jone200991]

Как в конце отсортировать чтобы получился правильный ответ?
Program Zaharov;
const n=36;a=-10;b=10;
Var r:Array [1..n] of integer;SrArif:real;k,z,i,max,j,ai, aj,buf:integer;
Begin
Randomize;
For i:=1 To n do
r[i]:=random(b-a+1)+a;
writeln(‘Сформулировать массив целых чисел r[36] из случайных чисел’);
For i:=1 to 36 do
Write (r[i]:4);
Writeln;
k:=0;
z:=0;
for i:=((n div 4)+1) to (n div 2) do
if i mod 2 <>0 then
begin
k:=k+r[i];
z:=z+1;
end;
SrArif:=k/z;
writeln(‘Среднеарифметическое значение каждых вторых элементов второй четверти массива=:', SrArif:8:3);
max:=-9;
for i:=1 to n do
If r[i] mod 2<>0 then if r[i]>= max then max:=r[i];
Writeln(' MAX=', max);
for i:=(n div 3)+1 to 2+(n div 3)-1 do begin
for j:=i+1 to 2*(n div 3) do begin
if (i mod 3=0) and (j mod 3=0)
and (abs(1/ai)<abs(1/aj)) then
begin
buf:=r[j];
r[j]:=r[i];
r[i]:=buf;end;end;end;
writeln(‘Массив упорядоченный по убыванию модулей обратных значений’);
writeln;
for i:=1 to n do
write(r[i]:4);
end.