Нажмите на ссылку Быстрая сортировка.pas, чтобы просмотреть файл.