Лабораторная 8. Сортировка массивов

type
 TestSortFunction=function(element1,element2:pointer):integer;
    // SortFunction возвращает 
    // 0 - если элементы равны друг другу
    // отрицательное число - если element1 меньше element2, 
    // положительное число - если elemen1 больше element2
 TDataArray=array of pointer;

procedure SortBubble(var data:TDataArray; testfunc:TestSortFunction);
begin 
 // пузырьковая сортировка 
end;

procedure SortChoice(var data:TDataArray; testfunc:TestSortFunction);
begin 
 // сортировка выбором
end;

procedure SortInsert(var data:TDataArray; testfunc:TestSortFunction);
begin 
 // сортировка вставками
end;

procedure SortSpeed(var data:TDataArray; testfunc:TestSortFunction);
begin 
 // быстрая сортировка
end;