Tìm giá trị lớn nhất của dãy số nguyên giá trị lớn nhất

Program NhatNgu;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,max: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        max:=A[1];
        For i:=2 to n do
                If A[i]>max then max:=A[i];
        Write('Max = ',max);
        Readln
End.

program bai_giai;
uses crt;
var A:array[1..100] of integer;
    n,i,max:integer;
begin
    clrscr;
    write('Nhap so luong phan tu: ');  readln(n);
    for i:=1 to n do
        begin
            write('Nhap so thu ',i,' cua day: ');  readln(A[i]);
            if i=1 then max:=A[i]
            else if A[i]>max then max:=A[i];
        end;
    write(max);
    readln;
end.