Выводятся 14 чисел определить сколько среди них положительных включая 0 и солько отрицательных числавводятся в одну переменную в цикле

Program Stats;
var a,k,d,c:integer;
begin
d:=0;
k:=0;
c:=0;
repeat
readln(a);
d:=d+1;
if a>= 0
then
begin
k:=k+1;
end;
if a<0
then
begin
c:=c+1;
end;
until d = 14;
writeln('+ ',k);
writeln('- ',c);
readln
end.