Например, методом пузырька.
Код:
var
A : Array Of Integer; // Где-то описан массив
procedure BubleSort;
var
I, J, Buf : Integer;
begin
For I := Low(A) To High(A) - 1 Do
For J := I + 1 To High(A) Do
If A[i] > A[J] Then
Begin
Buf := A[i];
A[i] := A[J];
A[J] := Buf;
End;
end;