как сделать программу с помощью массива???

[aiktz]

Дана последовательность ненулевых целых чисел, за которой следует 0. Напечатать сначала все отрицательные числа этой послед-ти, а затем - все положительные ( в любом порядке).

Я сделала данную программу с помошью рекурсии, а как сделать ее без рекурсии при помощи массива и цикла?? помогите пожалуйста!!!

program inf;
var fin: text;
procedure razdelenie_chisel;
var ch: integer;
begin
read(fin, ch);
if ch <> 0 then
if ch < 0 then begin
write(ch);
razdelenie_chisel;
end
else
 begin
razdelenie_chisel;
write(ch, ' ');
end
else write(' ');
end;


begin
assign(fin, 'in.txt');
reset(fin);
razdelenie_chisel;
close(fin);
readln;
end.

[ОДИНОЧЕСТВО В СЕТИ]

i:=1;
while a[i]<>0 do begin
 readln(a[i]);
 inc(i);
end;
for j:=1 to i-1 do 
if a[j]<0 then writeln(a[j]);
for j:=1 to i-1 do 
if a[j]>0 then writeln(a[j]);
readln;
end.