*)Sai chỗ: Progarm tinh tb;  (Program viết sai chính tả, tên sai vì trong tên chỉ được có dấu gạch dưới, số, và chữ thôi).
Sửa: Program tinh_tb;
*)Sai chỗ: aray[1...50] of integer; (array viết sai chính tả, trong ngoặc vuông dư 1 dấu(.), điểm phải là kiểu số thực (không biết 0,5 cô bạn có làm tròn lên 1 không?)).
Sửa: Var diem: array [1..50] of real;
*)Sai chỗ: i,n: real;  (i,n phải khai báo kiểu nguyên, khai báo kiểu thực chương trình không chạy được :v).
Sửa: Var i,n: integer;
        Tb: real;
*)Sai chỗ: write ('nhap si so lop 7a')  (Thiếu dấu(;) ở cuối).
Sửa: write('nhap si so lop 7a:');  (Mình nên thêm dấu (:) hay dấu(=) để ngăn cách).
*)Sai chỗ: tb=0; for i=1 to n do  (thiếu dấu (:) chỗ gán i với tb).
Sửa: tb:=0;
For i:=1 to n do
*)Sai chỗ: write ('ban thu',i);  (nên có dấu (:) hay dấu (=) để ngăn cách).
Sửa: write('ban thu',i,':');
*)Sai chỗ: write ('diem tb lop 7a la:'); readln (tb); (Vì kết quả là số thực nên phải xuất độ rộng với số chữ số thập phân; readln(tb) không cần thiết nên có thể bỏ đi)
Sửa: write ('diem tb lop 7a la:',tb:5:2);