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 ( đang cần gấp ạ ) giúp e với chiều nay e ktr rồi

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.

uses crt;
var A:array [1..100] of real;
    n:longint;
    Max,i: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 la: ',Max:4:2);
   readln
end.