Алгоритм размещения элементов вектора в порядке убывания mod

uses crt;
const nmax=100;
var a,a1:array[1..nmax] of integer;
    n,m,i,j,k,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива А от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив A');
for i:=1 to n do
 begin
  a[i]:=-25+random(51);
  write(a[i]:4)
 end;
writeln;
a1:=a;
{сортировка включением}
for i:=2 to n do
 begin
  x:=a1[i];{запоминаем очередной элемент}
  j:=1;{смотрим что слева от него}
  while abs(x)<abs(a1[j]) do inc(j);{пока все меньше данного, идем вперед}
  for k:=i-1 downto j do{нашли меньший, сдвигаем массив от этого элемента-1}
  a1[k+1]:=a1[k];{на 1 вправо}
  a1[j]:=x;{вставляем найденный элемент на место}
 end;
writeln('Сортировка включением:');
for i:=1 to n do
write(a1[i]:4);
writeln;
{сортировка вставками}
a1:=a;
for i:=2 to n do
 begin
  x:=a1[i];
  j:=i-1;
  while (j>=1) and (abs(a1[j])<abs(x)) do
   begin
    a1[j+1]:=a1[j];
    j:=j-1;
   end;
  a1[j+1]:=x;
 end;
writeln('Сортировка вставками:');
for i:=1 to n do
write(a1[i]:4);
writeln;
{пузырьковая сортировка}
for k:=1 to n-1 do
 begin
  for i:=1 to n-1 do
  if abs(a[i])<abs(a[i+1]) then
   begin
    x:=a[i];
    a[i]:=a[i+1];
    a[i+1]:=x
   end;
 end;
writeln('Сортировка пузырьком:');
for i:=1 to n do
write(a1[i]:4);
readln
end.