cho tệp 'lop11a12.inp' chứa các số nguyên,mỗi số nằm trên một dòng.hãy cho biết có bao nhiêu số chẵn trong tệp trên . mọi người làm mình vs ??

uses crt;
var f,g:text;
    a:array[1..1000] of integer;
    n,i,cs:byte;
Begin
write('Nhap so cac so can doc: '); readln(n);
assign(f,'lop11a12.inp');
reset(f);
for i:=1 to n do
 readln(f,a[i]);
for i:=1 to n do
 if a[i] mod 2 =0 then cs:=cs+1;
write('Co ',cs,' so chan');
close(f);
readln;

End.

program bai_giai;
uses crt;
var f:text;
    n,d:longint;
begin
    clrscr;
    Assign(f,'lop11a12.inp');  reset(f);
    d:=0;
    while not eof(f) do
        begin
            readln(f,n);
            if n mod 2=0 then d:=d+1;
        end;
    write(d);
    close(f); readln;
end.