Meines Erachtens muss die innere Schleife nicht bei 0 starten.
Delphi-Quellcode:
for i:=0 to 9 do
for j := i + 1 to 9 do
begin
if data[i] > data[j] then
begin
dummy:=data[i];
data[i]:=data[j];
data[j]:=dummy;
end;
end;
Es reicht wenn sie beim aktuellen Stand +1 der Vorgängerschleife startet.
Grüße
Klaus