Дан целочисленный массив А(а1...аn). Отсортировать массив по убыванию,начиная с максимального элемента. ПАСКАЛЬ.

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],' ');