viết chương trình tìm giá trị lớn nhất trong phần mềm free pascal

uses crt;
var a:array[1..10000] of longint;
      n,i,max:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      max:=a[1];
      for i:=1 to n do
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  if a[i]>max then max:=a[i];
            end;
      write('Gia tri lon nhat: ',max);
      readln;
end.

Uses Crt;

Type Mang = ARRAY[1..50] Of Integer;

Var A:Mang;    

       N,i,Max:Integer;

Begin   

       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 Max<A[i] Then Max:=A[i]; 

        Writeln('Phan tu lon nhat cua mang:', Max);    

     Readln;

       End.