a) Sai, vì sai cú pháp lệnh gán. Sửa lại For i:=1 to 10 do writeln('A'); .
b) Sai, vì sai cú pháp khai báo mảng. Sửa lại Var X:Array[5..10] of Char;
c) Đúng, vì nó không sai cú pháp và không tạo thành vòng lặp vô hạng.
d) Sai, vì trước else không có ';'.