Kiểm tra chẵn, lẻ, >=8

uses crt;
type mang=array[1..255] of byte;
var
    i,n,ichan,ile,ilon8: byte;
    a: mang;
begin
    clrscr;
    repeat
        write('n= ');
        readln(n);
    until ((n>0) and (n<=100));
    for i:=1 to n do
        begin
            write('a[',i,']= ');
            readln(a[i]);
        end;
    ichan=0;
    ile=0;
    ilon8=0;
    for i:=1 to n do
        begin
            if (a[i] mod 2 = 0)
                ichan = ichan + 1
            else
                ile = ile + 1;
            if (a[i] >= 8)
                ilon8 = ilon8 + 1;
        end;
    writeln("So phan tu chan: ", ichan);
    writeln("So phan tu le: ", ile);
    writeln("So phan tu >=8: ", ilon8);
    readln;
end.