Используя обменную сортировку, отсортировать массив по убыванию Сделать в динамическом массиве чтобы все элементы вводились с клавиатуры

Var
  i,j,k,n:integer;
  a:array of integer;
begin
  Write(Введите количество элементов массива: ); Read(n);
  SetLength(a,n);
  Writeln(Введите элементы массива);
  for i:=0 to n-1 do Read(a[i]);
  for i:=0 to n-2 do
    for j:=i+1 to n-1 do
      if a[i]  for i:=0 to n-1 do Write(a[i], );
  Writeln
end.

Тестовое решение
Введите количество элементов массива: 10
Введите элементы массива
57 18 31 40 45 75 85 43 93 27
93 85 75 57 45 43 40 31 27 18