Сортировка массива

[Катеринка-Катя]

Всем привет! Не даются алгоритмы сортировки.
Помогите пожалуйста:
"Дана последовательность целых чисел. Вывести в порядке убывания сначала все положительные числа, затем все отрицательные."

Заранее спасибо!!! Срок-до завтра к сожалению(

[westlinex]

Если еще актуально!

Program sort;
uses crt;
var a:array[1..5] of integer;
i,j,buf,imin:integer;
begin
clrscr;
for i:=1 to 5 do begin
write('vvedite element a(',i,')');
read(a[i]);end;
for i:=1 to 5 do begin
imin:=i;
for j:=i+1 to 5 do
if a[j]>a[imin] then imin:=j;
buf:=a[i];
a[i]:=a[imin];
a[imin]:=buf;
end;
for i:=1 to 5 do
writeln('a[',i,']',a[i],' ');writeln; readln;
readln;
end.