Дан целочисленный массив А(а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]) thenbeginb := a[i];a[i] := a[i + 1];a[i + 1] := b;end;for i := 1 to n dowrite(a[i],' ');