[Delphi]Porównanie liczb

Jak porównać kilka set liczb? Chce żeby porządkowalo je od największej do najmniejszej i podawalo 5 największych.
Chodzi mi że te liczby to zmienne i wartości tych zmiennych.------------------------------------------------------------------------
Uwielbiam programować

W razie problemu, ksišżka pomoże

Posortuj. Kilka algorytmów tutaj jest.--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

No wisz ja jestem początkujący... ;-|
A jak dalo by się tylko 5 pierwszych liczb bez żadnych trudnych(dla mnie) algorytmów? ------------------------------------------------------------------------
Uwielbiam programować

W razie problemu, ksišżka pomoże

Zrób na chama. Jeżeli masz liczby zapisane w tablicy, to przejdź całą tablicę w poszukiwaniu największej liczby (zapisuj zawsze indeks największego elementu), wypisz największy element, zapisz gdzieś indeks, przleć jeszcze 4 razy omijając użyte elementy:

maxindex:=1;
for i:=2 to ile_elementow do
if tablica[i] &gt tablica[maxindex] then maxindex:=i;
writeln(tablica[maxindex]);
liczba1:=maxindex;
for i:=2 to ile_elementow do
if (i &lt&gt liczba1) and (tablica[i] &gt tablica[maxindex]) then maxindex:=i;
writeln(tablica[maxindex]);
liczba2:=maxindex;
for i:=2 to ile_elementow do
if (i &lt&gt liczba1) and (i &lt&gt liczba2) and (tablica[i] &gt tablica[maxindex]) then maxindex:=i;
writeln(tablica[maxindex]);
liczba3:=maxindex;
...
...

Jest to wyjątkowo brutalna metoda, ale działa :)--Vogel [Delphi 6 PE]

Life is just a dream, you know...
[Cowboy Bebop]

Dzięki Vogel!------------------------------------------------------------------------
Uwielbiam programować

W razie problemu, ksišżka pomoże