В простую переменную последовательно вводится N чисел, отличных от нуля. Положительные или отрицательные числа завершают последовательность и сколько их? — Pascal(Паскаль)

var
n,a,kotr,kpol,i:integer;
begin
writeln('vvedite kol-vo chisel N');
readln(n);
for i:=1 to n do
begin
writeln('vvedite ',i,' chislo');
readln(a);
if a>0 then
begin
kotr:=0;
inc(kpol)
end
else
begin
kpol:=0;
inc(kotr);
end;
end;
if kpol<>0 then writeln('polojitelnye, ih chislo= ',kpol)
else writeln('otricatelnye, ih chislo=',kotr);
readln;
end.