Выводятся 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.