Viết chương trình đếm các số chẵn trong dãy số nguyên A có n phần tử (n<= 10^3). Giúp mình với ạ

Program bai1;

Uses crt;

Var A: array[1..1000] of integer;

     n,d,i:integer;

Begin

      write(‘Nhap n:’); 

      readln(n);

      d:=0;

      for i:=1 to n do

            begin

                  write(‘A[‘,i,’]= ‘);

                  readln(A[i]);

               if A[i] mod 2=0 then d:=d+1;

             end;

      write(‘Co ‘,d, so chan’);

      readln;

End.