Hallo eLverpeilo,
hier ist mal eine Möglichkeit von mir bezüglich des BubbleSort Algorithmus.
Delphi-Quellcode:
procedure TForm1.BubbleSort;
var Lauf1,Lauf2:Integer;
begin
for Lauf1:=20 downto 2 do
for Lauf2:=2 to Lauf1 do
if (Sort[Lauf2-1] > Sort[Lauf2]) then Tausch(Lauf2-1,Lauf2);
end;
Vielleicht hilft sie dir.
Tschüß Markus