Viết chương trình pascal nhập n số nguyên từ bàn phím và ghi ra màn hình số lớn nhất trong các số đó. Số n cũng được nhập vào từ bàn phím.(Ai giải hộ em với ạ)

program baitap;
uses crt;
var n,i,max : integer;
a : array[1..100] of integer;
begin clrscr;
write('Nhap so n :'); readln(n);
for i:=1 to n do begin
write('Nhap phan tu thu ',i,' la : '); readln(a[i]);
end;
max:=a[1];
for i:=2 to n do if max<a[i] then max:=a[i];
write('So lon nhat trong mang la :', max);
readln
end.

var     a:array[1..1000000] of integer;
        max,n,i:integer;
begin
        write('nhap n :');
        read(n);
        for i:=1 to n do
        begin
                write('a[',i,']=');
                read(a[i]);
        end;
        max:=a[1];
        for i:=1 to n do
        if max<a[i] then max:=a[i];
        write('So lon nhat la: ',max);
end.