Сортировки

[Seferus]

1) Задан массив A(N). Добавить массив С(К). Выполнить сортировку включением. В полученном заданном массиве найти наибольший элемент из отрицательных значений. Вопрос у меня такой : как добавить новый массив и выполнить сортировку включение.
2) Задан массив A(N). Добавить массив С(К). Выполнить обменную сортировку. В полученном заданном массиве найти наибольший элемент из отрицательных значений. Вопрос: Как выполнить обменную сортировку.
3) Задан массив AX (N). Добавить массив С(К). Выполнить сортировку разделением. В полученном массиве найти индексы элементов, которые кратны минимальному значению элемента массива. Вопрос: как выполнить сортировку разделением.

uses crt;
const n=15;
var a:array[1..50] of integer;
i,j,k:byte;
x:integer;
b:real;
begin
clrscr;
randomize;
For i:=1 to n do begin;
a[i]:=random(100)-50;
writeln(a[i]);
end;
writeln;
For i:=1 to n do
if a[i]<0 then b:=a[i];
For i:=1 to n do
if a[i]<0 then
begin
if a[i]<b then
b:=a[i];
end;
for i:=n downto 1 do
begin
if(a[i]>0) then break;
end;
writeln;
for i:=1 to n do
if a[i]>0 then
begin
k:=k+1;
x:=a[i];
for j:=i downto k+1 do
a[j]:=a[j-1];
a[k]:=x;
end;
Writeln('Naibolbshiy element iz otricacelbnbIx zna4eniy: ',b);
writeln('Corcirovka:');
for i:=1 to n do
write(a[i]:3);
end.

Это с бинарным поиском.