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

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.