Ищу задачи решаемые методом сортировок (очень нужно)

Форумчане помогите нужно выполнить любые задачи методом сортировок (написать полное решение):
СОРТИРОВКА ОБМЕНОМ. МЕТОД «ПУЗЫРЬКА»
«ШЕЙКЕР» СОРТИРОВКА
СОРТИРОВКА ПОДСЧЕТОМ
СОРТИРОВКА ВСТАВКАМИ
БИНАРНАЯ ВСТАВКА
СОРТИРОВКА СЛИЯНИЕМ
СОРТИРОВКА ВЫБОРОМ

на любом языке программирования (лучше в паскале).

как пример:

Сортировка подсчетом.

Задача. Подсчитать кол-во пар равных соседних элементов массива действительные числа.

Программа:

program mass_podshet;

var a:array [1..10] of real; k,i:integer;

begin

for i:=1 to 10 do

begin

write (‘a[‘,I,’]=’);

readln(a);

end;

k:=0;

for i:=1 to 10 do

if a=a[i+1] then k:=k+1;

writeln(‘ кол-во пар =’,k);

readln;

end.

Вид экрана.

A[1]=2

A[2]=3

A[3]=3

A[4]=2

A[5]=2

A[6]=3

A[7]=3

A[8]=2

A[9]=2

A[10]=3

Кол-во пар = 4



Немного про саму сортировку

Алгоритмы сортировки.doc.html

Помогите кто что может, очень нужно....