пузырьковый метод Опции

[Ostin]

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

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;

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