CODE CỦA MIK:

uses crt;

var T: array[1..100] of integer;

      i: integer;

      n: longint;

begin

          clrscr;

           writeln('Nhap so hoc sinh trong lop: ');

           readln(n);

           for i:=1 to n do

           begin

                      writeln('Diem hoc sinh [',i,']=');

                      readln (T[i]);

           end;

           for i:=1 to n do

           begin

                      writeln(T[i]:5);

                      if T[i]=8 then writeln('Gioi');

                      if (T[i]>=6.5) and (T[i]<=7.9) then writeln('Kha');

                      if (T[i]=5) and (T[i]<=6.4) then writeln('Trung binh');

                      if T[i]<5 then writeln('Kem');

           end;

           readln;

           end.

Lỗi sai của bạn là i phải khai báo kiểu integer thì mới dùng câu lệnh lặp được.

program minh;
uses crt;
var a: array [1..100] of real;
    i,n,dy,dtb,dk,dg:integer;
begin
        clrscr;
        write('Co bao nhieu ban can nhap diem: '); readln(N);
        for i:=1 to n do
                begin
                        write('nhap diem ban thu ',i,': ');
                        readln(a[i]);
                        if a[i]<5 then
                                dy:=dy+1
                        else if a[i]<6.4 then
                                dtb:=dtb+1
                        else if a[i]<7.9 then
                                dk:=dk+1
                        else
                                dg:=dg+1;
                end;
        writeln('So ban hoc yeu: ',dy);
        writeln('So ban hoc trung binh: ',dtb);
        writeln('So ban hoc kha: ',dk);
        writeln('so ban hoc gioi: ',dg);
        readln;
end.