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

procedure TForm1.Button1Click(Sender: TObject);
var
zahlfeld: array [1..9] of integer;
zahl,i,d,hilf:integer;
begin

zahl:=strtoint(memo1.lines.text);
zahlfeld[i]:=zahl;
for d:=0 to 8 do
for i:=1 to 8  do
if zahlfeld[i] > zahlfeld[i+1] then
begin
hilf:=zahlfeld[i];
zahlfeld[i]:=zahlfeld[i+1];
zahlfeld[i+1]:=hilf;
end

end;

end.					

1:
2:

For i:=1 to Menge-1; // -1 wegen dem letzten Vergleich
For j:=i+1 to Menge; // Die innere Schleife wird immer kürzer, da die unteren ja sortiert sind					

1:
2:
3:
4:
5:
6:

If Wert_in_Array[i]>Wert_In_Array[j] then 
begin
  Merke:=Wert_In_Array[i]; // größeren Wert zwischenspeichern
  Wert_In_Array[i]:=Wert_in_Array[j]; // kleineren Wert nach unten
  Wert_in_Array[j]:=Merke; // größeren Wert nach oben
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var
zahlfeld: array [1..9] of integer;
zahl,i,j,hilf:integer;
begin
     i:=1;
     zahl:=strtoint(memo1.lines.text);
     zahlfeld[i]:=zahl;
     for i:=1 to 8 do
     for j:=i+1 to 9  do
     if zahlfeld[i] > zahlfeld[j] then
begin
     hilf:=zahlfeld[i];
     zahlfeld[i]:=zahlfeld[j];
     zahlfeld[j]:=hilf;					

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

procedure TForm1.Button1Click(Sender: TObject);
  var
    zahlfeld: array [1..9] of Integer;
    zahl,i,j,hilf: Integer;
begin
  i := 1;
  zahl := strtoint(memo1.lines.text);
  zahlfeld[i] := zahl;
  for i := 1 to 8 do
    for j := i+1 to 9  do
      if (zahlfeld[i] > zahlfeld[j]) then begin
        hilf := zahlfeld[i];
        zahlfeld[i] := zahlfeld[j];
        zahlfeld[j] := hilf;
      end;