Выводятся 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 athen
begin
c:=c+1;
end;
until d = 14;
writeln(+ ,k);
writeln(- ,c);
readln
end.