С КЛАВИАТУРЫ ВВОДЯТ n чисел .Найти сколько посреди них положительных

Сколько чисел надобно вводить?

там написано n чисел,то есть безызвестно сколько чисел вводить

Я сделал так, эталон есть, если не то , перефоратируй

Program zic;
var a,b,c,d,e:integer;
begin
Writeln('Введите 5 чисел');
Readln(a,b,c,d,e);
if (agt;0) and (bgt;0) and (cgt;0) and (dgt;0) and (egt;0) then Write('',Ваши числа положительные) else
if agt;0 and bgt;0 and cgt;0 and dgt;0 and elt;0 then Write('',Все ваши числа положительные не считая числа e) else
if agt;0 and bgt;0 and cgt;0 and dlt;0 and egt;0 then Write('',Все ваши числа положительные не считая числа d) else
if agt;0 and bgt;0 and clt;0 and dgt;0 and egt;0 then Write('',Все ваши числа положительные не считая числа c) else
if agt;0 and blt;0 and cgt;0 and dgt;0 and egt;0 then Write('',Все ваши числа положительные не считая числа b) else
if alt;0 and bgt;0 and cgt;0 and dgt;0 and egt;0 then Write('',Все ваши числа положительные кроме числа a) else
if agt;0 and bgt;0 and cgt;0 and dlt;0 and elt;0 then Write('',Все ваши числа положительные кроме числа d и e) else
if agt;0 and bgt;0 and clt;0 and dgt;0 and elt;0 then Write('',Все ваши числа положительные не считая числа c и e) else
Далее просто меняеш знаки и числа.
Концовка такая
if alt;0 and blt;0 and clt;0 and dlt;0 and elt;0 then Write('',Все ваши числа
 отрицатильные);
end.
P.s. Все эти сlt;0 и т.д. поставь в скобки