Очереди Опции

[FLO]

ПОмогите плиз!!! Натолкните на путь истинный!
Пусть задана очередь, состоящая из чисел n1,n2,n3,..,nk. Составить программу, которая определяла бы количество положительных и отрицательных чисел.
Огромное спасибо!

[FLO]

начало написал..

Type
EXO=^O;
O=record;
Data:real;
Next:EXO;
End;

Var
i,a:integer;
x1,x2:EXO;

procedure WriteO(var x1,x2:EXO);
var
u:EXO;
begin
x1:=nil;
x2:=nil;
writeln(‘vvedite elementi ocheredi. Konec vvoda-0’);
read(i);
while i<>0 do
begin
new(u);
u^.data:=I;
u^.next:=nil;
if x1=nil then x1:=u else x2^.next:=u;
x2:=u;
read(i);
end;
end;


begin
writeO(x1,x2)

а вот как посчтитать кол-во положительных и отрицательных элементов - не знаю.. помогите, пожалуйста..