Дан целочисленный массив а(). отсортировать массив по убыванию,начиная с максимального элемента. паскаль.

Readln(n);
for i := 1 to n do
 read(a[i]);
for i := 1 to n - 1 do
 for j := 1 to n - 1 do
   if (a[i] < a[i + 1]) then
begin
b := a[i];
a[i] := a[i + 1];
a[i + 1] := b;
end;
for i := 1 to n do
write(a[i],' ');