Viết chương trình tìm số lớn nhất trong mảng Mảng gồm 5 số

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

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

uses crt;
var A:array[1..5] of integer;
    i:byte; max:integer;
begin
   clrscr;
   for i:=1 to 5 do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
   end;
   max:=A[1];
   for i:=2 to 5 do
   if A[i]>max then max:=A[i];
   write('Max la: ',max);
   readln
end.