Cho mảng số nguyên A gồm n phần tử A1-… An (n<250) Viết chương tình tìm và in ra màn hình phần tử có giá trị lớn nhất

uses crt;
var a: array[1..250] of integer;
    i,max,n: integer;
begin
      clrscr;

      write(‘Nhap n= ‘);readln(n);

      for i:=1 to n do

          begin

              write(‘a[‘,i,‘]: ‘);readln(a[i]);

          end;

      for i:=1 to n do

          If a[i] > max then max:=a[i];

      write(‘Phan tu lon nhat la: ‘,max);

readln;
end.