Сортировки в delphi 7

[magnetik]

Приветствую Вас!

Мне нужно доделать программу с сортировками. Задание звучит так:

Написать программу, в которой массив из 100 элементов формируется считыванием из файла.
Пользователь имеет возможность выбрать один из методов сортировки элементов массива по невозрастанию их значений:
- простого выбора;
- простого обмена (пузырьком);
- прямого включения;
- слияниями;
- Хоара;
- пирамидальная.
В каждой из процедур сортировки добавить счетчики количество произведенных сравнений и произведенных перестановок.

По данной работе у меня есть некоторые наработки, их выкладываю ниже.

Кому не трудно, помогите!