Sortiranje po velikosti

Poskušam spisati program, ki bi urejal recimo 10 števil po velikosti od največjega pa do najmanjšega. To delam v TPascalu 7.0. Če ima kdorkoli kakšno idejo bi je bil sila vesel.
moja dosedanja koda:

program sortiranje_po_velikosti;
uses crt;
type Mnozice=set of 1..10;
var X:array [1..10] of integer;
    Y:array [1..10] of integer;
    i,j,naj,st:integer;
    mnozica:Mnozice;

begin
     randomize;
     for i:=1 to 10 do X[i]:=random(30)+1;
     mnozica:=[];                         {tabela zapolnjena, mnozica prazna}

     j:=0;
     i:=0;

     while j<=10 do begin
           inc(j);
           i:=0;
           naj:=0;
           while i<=10 do begin
                 inc(i);
                 if (X[i]>=naj) and not(i in mnozica) then begin
                    Y[j]:=X[i];
                    st:=i;
                    end;
                    mnozica:=mnozica+[st];
                 end;
           end;
     for i:=1 to 10 do writeln(x[i]);
     readln;

end.

Če imaš majhne primere(pod 1000 števil) ti predlagam Insertion sort @ Wikipedia
Izi za razumet pa relativno hiter.
No par enačajev boš mogu obrnt, glede na to, da hočeš padajoče zaporedje.