cho mình hỏi :viết phương trình:nhập số cân nặng của N học sinh nhập từ bàn phím thông báo là số cân nặng lớn nhất của học sinh đó , xin hãy giúp mình nha

uses crt;
var  a : array[1..100] of real;
n,i  : integer;
max : real;
begin clrscr;
write('Nhap n :'); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]); end;
max:=a[1];
for i:=2 to n do if a[i] > max then max:=a[i];
writeln('So cang nang nhat cua hoc sinh trong lop la :',max);
readln
end.

Uses crt;
Var a:array[0..1000000] of int64;
        i:longint;n,max:int64;
Begin
      clrscr;
      max:=low(longint);
 Readln(n);
 For i:=1 to n do
  Begin
   Read(a[i]);
   If a[i]>max then max:=a[i];
  End;
  Write(max);
End.