Сортировка простыми вставками

[Akcentbek]

Опишите сортировку простыми вставками по ..невозростанию..


вот алгоритм сортирующий по неубыванию
мне нужно наоборот ))
не доходит как переделать ))

for i := 2 to N do
 if a[i - 1] > a[i] then                {*} 
 begin
    x := a[i];
    j := i - 1;
   while (j > 0) and (a[j] > x) do      {**}
   begin
      a[j + 1] := a[j];
      j := j - 1;
   end;
    a[j + 1] := x;
 end;

[Serge_Bliznykov]

  for i := 2 to N do
    if a[i - 1] < a[i] then {*}
    begin
      x := a[i];
      j := i - 1;
      while (j > 0) and (a[j] < x) do {**}
      begin
        a[j + 1] := a[j];
        j := j - 1;
      end;
      a[j + 1] := x;
    end;