пузырёк - соритровка по убыванию одномерного массива

Упорядочить элементы одномерного массива по убыванию. На Pascal

Итак отсортировать по убыванию (так же и по возрастанию) можно с помощью метода пузырька

Последовательно просматриваем числа a0 , ..., an-1 находим наименьшее i такое, что ai > ai+1 . Поменять ai и ai+1 местами, возобновить просмотр с элемента ai+1 и т.д. Тем самым наибольшее число передвинется на последнее место. Следующие просмотры начинать опять сначала, уменьшая на единицу количество просматриваемых элементов. Массив будет упорядочен после просмотра, в котором участвовали только первый и второй элементы.

тут рабочий пример