Cho mảng A các giá trị số nguyên (A[i] ≤ 10^200). Hãy lập trình là tính số giá trị chẵn và lẽ Yêu cầu: Dùng file

Program Clear;
Uses crt;
Var A: array[1..10000] of string;
    s: string;
    code: byte;
    i,n,dc,dl,so: integer;

Function cx(St: String): char;
Var vt: byte;
Begin
        vt:=length(St);
        cx:=St[vt];
End;

Begin
    Clrscr;
    Write('Nhap n: '); Readln(n);
    dc:=0; dl:=0;
    For i:=1 to n do
    Begin
        Write('Nhap ptu ',i,': '); Readln(A[i]);
    End;

    For i:=1 to n do
    Begin
        Val(cx(A[i]),so,code);
        If so mod 2 = 0 then inc(dc)
        Else inc(dl);
    End;
    Write('Co ',dc,' so chan va ',dl,' so le');
    Readln;
End.