Задан массив В(N).Переписать...

Задан массив В(N).Переписать в начало массива положительные элементы, сохраняя порядок следования.Отпечатать преобразованный массивВ.

 

Program zadacha;
uses crt;
var b:array[1..100] of real;
   i,n:integer;
begin
readln(n);
for i:=1 to n do
read(b);
for i:=1 to n do
if b>0 then writeln(b);
for i:=1 to n do
if b<0 then writeln(b);
end.
{В задаче ничего не сказано за 0}