Hãy viết chương trình tính điểm trung bình của bạn học sinh, với số môn và điểm của môn là tùy thích nhập vào từ bàn phím ( Làm với câu lênh for... to... do ) Giúp mình với mình đang cần gấp :((((((

Program BTH;
uses crt;
var a: array [1..10000] of real;
n,i:longint;
tb:real;
begin
        clrscr;
        write('Nhap so mon: ');readln(n);
        for i:=1 to n do

        Begin
                write('Nhap diem mon thu ',i,': '); readln(a[i]);
                tb:=tb+a[i];
        end;
        writeln('Diem TB cua ',n,' mon la: ',tb/n:4:2);
        readln;
end.

program oken;

uses crt;

var a: array [1..100] of real;

      mon:byte;

      tb:real;

begin

clrscr;

write('nhap so mon: '); readln(mon);

for i:=1 to n do 

    begin

       write('nhap diem mon thu ',i,': '); readln(a[i]);

       tb:=tb+a[i];

    end;

writeln('diem TB cua ',n,': ',tb/n:0:3);

readln;

end.