Подсчитать количество четных чисел в одномерном массиве — Pascal(Паскаль)

const
  N = 10;
var
  A: array[1..N] of Integer;
  i, vsterch: Integer;
  c: boolean;
begin
 For i:=1 to n do
   read(a[i]);
   writeln;
   vstrech := A[1];
   c := false;
   for i := 2 to N do begin
      if (vstrech = A[i]) then 
      c := not c
      else begin
      if (c) then
        writeLn(vstrech, ' встречается чётное число раз.');
        vstrech := A[i];
      c := false;
    end;
  end;
end.