Дано натуральное число n. Переставить его числа так, чтобы образовалось максимальное

С виду это на Паскале программка, но тогда в ней цикл repeat until никак не работает, поскольку записан он неверно. Формат записи иной. В начале цикла пишется repeat, а until ngt;0 пишется в конце. Схоже, что этот заголовок кто-то списал с Бейсика.

По задумке здесь число преобразуется в строчку, а потом цифры в ней упорядочиваются по убыванию. Для этого используется обменная сортировка в ее разновидности, нарекаемой также "пузырьковая сортировка". Окончательно, традиционная пузырьковая сортировка реализуется немного по другому, там внутренний цикл идет от конца к началу, а тут от начала к концу, что отличительно для разновидности, именуемой "способ камня". При сопоставлении пары значений происходит их размен местами в случае, когда левый элемент меньше правого. Потому левые элементы с более наименьшим значением перебегают правее, а элементы с великим знаением - левее. Создается воспоминание, что великие числа сдвигаются на лево.

Тут показан метод сортировки пузырьком

Видимо, repeat until стоит как проверка вводимого числа на натуральность

Число n далее преобразуются в строку так как строчка дозволяет сопоставлять и обменивать местами цифры.

Дальше идет реализация самой сортировки и вывод