Viết chương trình tìm số lớn nhất trong một dãy số nguyên

Program BTT;
Uses crt;
Var A: array[1..1000] 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 bfhfh;

uses crt;

var max,i,n:integer;

      A: array[1..1000] of integer;

begin

clrscr;

Write('Nhap so hang cua day'); Readln(n);

For i:=1 to n do  

  Begin

     Write('So hang thu ',i,' : '); Readln(A[i]);

  End;

Max:=A[1];

For i:=2 to n do

  If max<A[i] then max:=A[i];

Write('So lon nhay day: ',max);

Readln

End.