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

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]<a[j] then begin k:=a[i]; a[i]:=a[j]; a[j]:=k end;
  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