Viết chương trình nhập điểm trung bình môn của các bạn sau đó in ra màn hình môn của bạn cao nhất

program oken;
uses crt;
var a: array [1..100] of real;
    i,n: longint;
    max: real;
begin
        clrscr;
        write('nhap so ban: '); readln(n);
        for i:=1 to n do
                begin
                        write('nhap diem ban thu ',i,': ');
                        readln(a[i]);
                end;
        max:=a[1];
        for i:=2 to n do
                if a[i]>max then
                        max:=a[i];
        writeln('diem cua ban cao nhat: ',max:0:1);
        readln;
end.