Bubblesort ist auch ausreichend für die paar Zahlen.
Als erstes benötigst Du ein Array, in dem die zu sortierenden Daten sind. Danach rufst Du den
BubbleSort auf.
Pseudo-Code:
Delphi-Quellcode:
Array[0] = StrtoInt(Edit1.Text);
Array[n] = StrToInt(Editn.Text);
// ...
Procedure BubbleSort;
var i,j : Integer;
Begin
For i:= Length(Array) downto 1 Do
For j:= 1 To i Do
If (Array[j-1] > Array[j]) Then SwapValues( j-1, j );
End;