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

procedure tForm1.bubblesort( var Feld:TFeld);
var i, j : integer;
    fertig : boolean;
begin
  j:=1;
  repeat
    Fertig:=true;
    for i:=1 to Anzahl-j do
    begin
      if Feld[i] > Feld[i+1] then
      begin
        tausche (Feld[i], Feld[i+1]);
        fertig:=false;
      end;
    inc (j);
    end;
  until fertig;
end;