array sortieren

[AlexanderBrade]

Also so?

Delphi-Quellcode:

Procedure BubbleSort;
var i,j : Integer;
Begin
  For i:= 24 downto 1 Do
    For j:= 1 To i Do
      If (Array[j-1] > Array[j]) Then SwapValues( j-1, j );
End;