паскаль,одномерный массив,сортировка вставка,сортировка убывания,от максимального до конца

[VovanZ]

program insertsort;
const
 n = 10;
 max = 100;
var
       a : array[1..n] of integer;
 b, i, j : integer;
begin
  randomize;
 for i:=1 to n do begin
  a[i]:=random(max);
  write(a[i]:4, ' ');
 end;
 readln;
 for i:=1 to n do begin
  b:=a[i];
  j:=i-1;
  while (j>=1) and (a[j]<b) do begin
   a[j+1]:=a[j];
   j:=j-1;
  end;
  a[j+1]:=b;
 end;
 for i:=1 to n do write(a[i]:4, ' ');
 readln;
end.

[немозг]

благодарю...