Добрые люди, составить сортировку массива по жизнь если напишите все !

For i:=1 to n-1 do for j:=i+1 to n do if a [ i ] < a [ j ] then begin b:=a [ i ]; a [ i ] := a [ j ] ; a [ j ] := b; end; вроде так