1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var arr :array[1..100] of integer;
      a, b, tmp   :integer;
  begin
  //array füllen
  //...
  //und sortieren:
  for a := 1 to 100 do
    for b := a + 1 to 100 do
      if arr[a] > arr[b] then
        begin
        tmp    := arr[a];
        arr[a] := arr[b];
        arr[b] := tmp;
        end;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

  zahl : Array of Integer;

implementation

{$R *.dfm}

Procedure Quicksort (l,r: integer);

var i,j,Mitte,Merke : Integer;

begin
{...}
end;

procedure TForm1.Button1Click(Sender: TObject);
VAR i : INteger;
begin
  Randomize;
  SetLength(zahl, 500);
  for i:=0 TO High(zahl) do //Array mit Zahlen füllen
    zahl[i]:=Random(Length(zahl));

  Quicksort(0,High(zahl)); //Sortieren

  ListBox1.Clear;
  for i:=0 TO High(zahl) do //ausgeben
    ListBox1.Items.Add(IntToStr(zahl[i]));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

Procedure TFAnwendung.Quicksort (l,r: integer);

var i,j,Mitte,Merke : Integer;

begin
     i:=l;
     j:=r;
     Mitte:=Zahlen[(l+r) div 2];
     repeat
           while Zahlen[i]<Mitte do Inc(i);
           while Mitte<Zahlen[j] do Dec(j);
           if i<=j then
           begin
                Merke:=Zahlen[i];
                Zahlen[i]:=Zahlen[j];
                Zahlen[j]:=Merke;
                Inc(i);
                Dec(j);
           end;
     until i>j;
     if l<j then QuickSort (l,j);
     if i<r then Quicksort (i,r);
end;



procedure TFAnwendung.BsortiertClick(Sender: TObject);
var i,k,z,s :integer;

begin
      A:= strtoint (EAnzahl.text);
      While i < A do
           begin
                i:= i+1;
                Zahlen[i]:= Random (A);
           end;

      Quicksort(0,High(zahlen)); //Sortieren
      k:=1;
      While A>k do
      begin
           for z:= 0 to 28 do
               for s:= 0 to 6 do
                   begin
                        SGvorgabe.Cells[s,z]:= inttostr (Zahlen[k]);
                        k:=k+1;
                   end;
      end;
end;