Паскаль(рекурсия)

[Лунатик13]

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

[Plague]

Напечатать отрицательные числа:

procedure a;
var x:integer;
begin
  read(x);
  if x<>0 then
    begin
      a;
      if x<0 then write(x:5);
    end;
 end;
begin
  a;
end.

а вот на счет "затем положительных".
как пройти второй раз по последовательности?
может надо как то косвенную рекурсию сюда прикрутить.
конечно хотелось бы без массивов обойтись.

[Лунатик13]

Большое спасибо=)