Подсчитать количество отрицательных, нулевых и положительных элементов массива с номерами позиций, кратных двум, начиная с первого. Размер носить массива произвольнаЯ

var   a : array [1..1000] of integer;   i, n, z, p, m : integer; begin   i := 0;   while not eoln do   begin     read (z);     inc (i);     a[i] := z;    end;   m:= i; n:=0; z:=0; p:= 0;    for i := 1 to m do      if i mod 2 = 0 then     begin       if a[i] < = then inc (n)        else if a[i] > 0 then inc (p)       else inc (z);     end;  writeln (n, ' ', z, ' ', p); end.