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

procedure Straightselection;
var i,j,iMax:Integer;
begin
 for i:=n downto 2 do
  begin
   iMax:=i;
   Max:=Zahl[i];
   for j:=1 to i-1 do
    if Zahl[j]>Max then
     begin
      iMax:=j;
      Max:=Zahl[j];
     end;
    Zahl[iMax]:=Zahl[i];
    Zahl[i]:=Max;
  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:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize; // wirklich zufällige Zahlen
end;

procedure TForm1.Button1Click(Sender: TObject);
  var
    i: Integer;
begin
  ListBox1.Clear; // unsortierte Zahlen und
  ListBox2.Clear; // sortierte Zahlen löschen
  for i := 1 to 10 do // 10 Zahlen zufällig
    ListBox1.Items.Add(IntToStr(Random(100))); // erzeugen
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // hier wird dann sortiert
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Application.Terminate; // Programm beenden
end;