[Antonio:)))]

Здравствуйте!, подскажите, как осуществить сортировку подсчетом распределения по убыванию? Данный код сортирует по возрастанию:

Код:

for j:=0 to 255 do c[j]:=0;
 for i:=0 to n-1 do c[a[i]]:=c[a[i]]+1;
 for j:=1 to 255 do c[j]:=c[j-1]+c[j];
 for i:=n-1 downto 0 do
  begin
   b[c[a[i]]]:=a[i];
   c[a[i]]:=c[a[i]]-1;
  end;
 for i:=0 to n-1 do
   StringGrid2.Cells[i,0]:=IntToStr(b[i]);
 end;

lmikle: Пользуемся тегами!!! Буду карать!!!

Как его изменить?