Chỉnh sửa giúp e với ạ

Hôn nay thầy kêu về làm bài tập mai lấy điểm kiểm tra ạ. Em đã làm gần xong và mong mọi người chỉnh sửa dùm ạ.
Đề: viết chương trình nhập vào thông tin của một lơpd gồm n học sinh (0<n<60) gồm: hoten, ngaysinh, diachi, toan, van, xel loai. Hãy xếp loại cho từng học sinh với điều kiện như sau:
+nếu toan + van >= 18 thì xếp loại A

• nếu 14<= toan + van <18 thì xếp loại B
  +nếu 10 <= toan + van < 14 thì xếp loại C
• nếu toan + van < 10 thì xếp loại D
  Sau đó in ra màn hình kết quả xếp loại từng học sinh.
  Bài làm

Program ketquaxeploai 
Uses crt ;
Type hocsinh = record 
Hoten:string[30]
Ngaysinh:[10]
Diachi:string[50]
Toan,van:real
Xeploai:char
End;
Var n,i:interger
Lop:array[1..60] of hocsinh;
Begin 
Clrscr;
Write('nhap n   ')
Readln(n)
For i:=1 to n do
Begin
Write(nhap lop['  ,i,  ']=  ');
Readln (lop[i].hoten) 
Tương tự vậy cho ngaysinh, diachi, van, toan
End;
If lop[i].toan + lop[i].van >=18 then
Lop[i].xeploai=:A
If lop[i].toan + lop[i].van >= 18 then
Lop[i].xeploai:=B
If lop[i].toan + lop[i].van<18 and lop[i].toan + lop[i].van >=14 then
Lop[i].xeploai:=B
If lop[i].toan + lop[i].van <14 and lop[i].toan  + lop[i].van >=10 then
Lop[i].xeploai:=C
Else lop[i].xeploai:=D 
For i:= 1 to n do
Begin 
Writeln(lop[i].hoten, lop[i].ngaysinh, lop[i].diachi, lop[i].xeploai)
End;
End.

1488870224248986487115.jpg2448x3264 1.82 MB