Вввод элекмента массива датчиком случайных чисел, сортировка по убыванию. Шейкерная сортировка.
Это программка, качай и пользуйся, PascalABC