Здравствуйте, angel.nero.

Смотрите приложение.
Массив создается с помощью генератора случайных чисел, поэтому в программе есть строчки:
a[4]:=0;
a[8]:=0;
Они вводят дополнительные нули.
Реализована ленивая сортировка.
Удачи!

Приложение:
const
n=10;
var
a:array[1..n]of real;
b:real;
i:integer;
begin
{создаем массив}
for i:=1 to n do
begin
a[i]:=10*random-5;
write(a[i]:7:3);
end;
writeln;
{контрольные пару нулей и вывод}
a[4]:=0;
a[8]:=0;
for i:=1 to n do
write(a[i]:7:3);
writeln;
i:=1;
{ленивая сортировка}
while i<n do
begin
if ((a[i]<0)and(a[i+1]>=0))or((a[i]=0)and(a[i+1]>0))then
begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b;
i:=1;
end
else
i:=i+1;;
end;
{вывод результата}
for i:=1 to n do
write(a[i]:7:3);
readln;
end.