Подсчитайте, сколько среди данных N чисел нулей, положительных и отрицательных чисел! Помогите решить пж.

const
n=10;

type
TCounters = array[-1..1] of integer;

var
c: TCounters;
a, i: integer;

begin
FillChar(c, SizeOf(TCounters), #0);
for i:= 1 to n do
begin
Readln(a);
inc(c[Sign(a)]); {use sgn instead of Sign for elder Pascals}
end;
Writeln(a[0], ' ', a[1], ' ', a[-1]);

end.

0-42 0-20 0 37 98-80 98 0
kol.0= 4 kol.pol= 3 kol.otr= 3
=================
0-51 23 0 77 56-72-65 35 0
kol.0= 3 kol.pol= 4 kol.otr= 3
=================
0-49 0 0-46 0-96-42 0 0
kol.0= 6 kol.pol= 0 kol.otr= 4
=================
0 0-63-97 83 0 53 0-81 88
kol.0= 4 kol.pol= 3 kol.otr= 3
=================
0-64 0 0-44-69-95-70-98-93
kol.0= 3 kol.pol= 0 kol.otr= 7
=================
0-49 70 0 49-20 0 0-5 0
kol.0= 5 kol.pol= 2 kol.otr= 3
=================
0 88 0-2 11 0 0 0-10 47
kol.0= 5 kol.pol= 3 kol.otr= 2
=================
-34 16 0 61 33-97-80 5 3-53
kol.0= 1 kol.pol= 5 kol.otr= 4
=================
-32 0-33 0-10 0 0 0 72-18
kol.0= 5 kol.pol= 1 kol.otr= 4
=================
-43 0-91 43 0-47 87 0 29 0
kol.0= 4 kol.pol= 3 kol.otr= 3
=================
0 0 0 44 0 0-58-43-6 16
kol.0= 5 kol.pol= 2 kol.otr= 3
=================
-13 0-10 0-89 0 0 0 0 27
kol.0= 6 kol.pol= 1 kol.otr= 3
=================
89 84-51 43-36 0-62 6-98 50
kol.0= 1 kol.pol= 5 kol.otr= 4
=================
-40 0 0 51-55 0 0-93 52 63
kol.0= 4 kol.pol= 3 kol.otr= 3
=================
0-96 67 73 79 19 66 0 0 0
kol.0= 4 kol.pol= 5 kol.otr= 1
=================