Moin, Moin.
Ist das Problem gelöst? Ich bin über diese Form des BubbleSort etwas irritiert
Die Reihenfolge der for- und while-Schleifen ist m. E. vertauscht. Mit folgendem alternativem Code sollte es funktionieren:
Delphi-Quellcode:
repeat
Done:=true;
for i:=1 to 9 do
if Zufallszahl[i]>Zufallszahl[i+1] then begin
Tauschen();
Done:=false
end
until Done;