Сортировка подсчетом (delphi)

[Лексей]

всем спасибо. сам разобрался
вот может кому пригодиться

procedure TForm1.Button1Click(Sender: TObject);
Var a,b,c   : array[1..1000] of integer;
  z: array [0..10000] of integer;
    n,i,q  : integer;
    f, g: TTimeStamp;
  Total: LongWord;
Begin
for i:=1 to 1000 do
  a[i]:=random(10000);
    for i := 1 to 1000  do
      stringgrid1.Cells[i-1,0]:=  inttostr(a[i]);

     begin{сортировка данных}
      f := DateTimeToTimeStamp(Now);
for n := 0 to 10000 do
    z[n]:=0;
      end;
      begin
     for i := 1 to 1000 do


       z[a[i]]:=z[a[i]]+1;


     q:=0;
         for n := 0 to 10000 do
       for i := 1 to z[n] do
        begin
           b[q]:=n;
           q:=q+1;
          g := DateTimeToTimeStamp(Now);
          Total := g.time - f.time;
      end;
     end;

     begin
for q:=0 to 1000 do


stringgrid2.Cells[q,0]:=  inttostr(b[q]);
  label3.Caption:='Время сортировки ='+floattostr(total) ;
end;
        begin
for n := 0 to 10000 do
    z[n]:=0;
      end;
      begin
     for i := 1 to 1000 do


       z[a[i]]:=z[a[i]]+1;


     q:=0;
         for n := 10000 downto 0 do
       for i := 1 to z[n] do
        begin
           c[q]:=n;
           q:=q+1;
      end;
     end;

     begin 
for q:=0 to 1000 do


stringgrid3.Cells[q,0]:=  inttostr(c[q]);
end;


        end;



end.

заполняет массив а рандомом, сортирует массив в и выводит по возрастанию, массив с по убыванию.