как сделать последовательнось убывающей!?

a:array [1..100] of real;

begin
temp:=a[1];
for i:= 1 to 100 do
for t:=2 to 100 do
if a[t]>a[t+1] then;
begin
temp:=a[t+1];
a[t]:=a[t+1];
a[t+1]:=a[t];
end;

это пракатит!?
если да то плиз кратко обьясните что тут к чему!

Для тебя что, FAQ не существует? Обязательно задать вопрос?
FAQ: Методы сортировки
Там написано, и как отсортировать по возрастанию, и как сделать убывающую последовательность...