Внутренняя сортировка.

[demonns]

Ребят помогите плз написать програмку. Для меня сложноватая.
Условие:
Составить подпрограммы и программу для решения задачи по условию заданному в таблице( использовать два "медленных" метода и два быстрых, методы выбрать самостоятельно) Предусмотреть процедуры заполнения и вывода массива. Массив задать константой или заполнить случайными числами. Программа должна выводить исходный массив и отсортированный
Вариант задания:
Дан массив Т (N). Преобразовать массив, упорядочив элементы с М-го по Р-й по убыванию, остальные оставив без изменений.(Известно, что 1<М<P<N)
Работа не маленькая понимаю. У меня методом пузырька есть рабочая программа. Осталось еще 3. Ну или если у кого получится совместитьь все 4 варианта программ в 1 файлике)

Program lab3;
uses crt;
const
n=20;
m=6;
p=15;
var
a:array[1..n] of integer;
i,j:integer;
T: integer;
begin
clrscr;
for i:= 1 to n do
a[i] := random(10);
for i:=1 to n do
write(a[i]:4);
writeln;
for i:=m to p do
for j:= p downto i+1 do
if a[j-1]< a[j] then
begin
T:=a[j-1];a[j-1]:=a[j]; a[j]:=T
end;
for i:=1 to n do
write(a[i]:4);
writeln;
readln;
end.