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