Дана последовательность чисел a1, a2, …, an. Требуется переставить числа в порядке возрастания.

[Figushkin]

Дана последовательность чисел a1, a2, …, an. Требуется переставить числа в порядке возрастания. Делается это следующим образом. Пусть a1, a2,…, ai упорядоченная последовательность, т.е. a1 ≤ a2 ≤…≤ ai. Берется следующее число аi+1 и вставляется в последовательность так, чтобы новая последовательность была тоже возрастающей. Процесс производится до тех пор, пока все элементы от i+1 до n не будут перебраны. Примечание. Место помещения очередного элемента в сортировочную часть производить с помощью двоичного поиска. Двоичный поиск оформить в виде отдельной функции.

[Figushkin]

подскажите как это на паскале сделать?