viết chương trình nhập vào 1 mảng có n(n<50) phần tử và in ra màn hình số lớn nhất số nhỏ nhẩt trong các phần tử mảng vừa nhập MIK ĐAG CẦN GẤP MOG MNG GIÚP MIK !!!

uses crt;
var n,i,max,min:longint; a:array[1..10000000]of longint;
begin
clrscr;
   write('Nhap so n: ');readln(n);
   min:=high(longint);
   for i:=1 to n do 
      begin
         write('Nhap phan tu thu ',i,': ');read(a[i]);
         if a[i]>max then max:=a[i];
         if min>a[i] then min:=a[i];
      end;
   writeln('So lon nhat: ',max);
   writeln('So nho nhat: ',min);
readln
end.

program ct;

uses crt;

var i,n,Max,Min:integer;

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

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

Max:=A[1]; Min:=A[1];

for i:=2 to n do

begin

  if Max<A[i] then Max:=A[i];

  if Min>A[i] then Min:=A[i];

end;

writeln('gia tri lon nhat la',Max);

writeln('gia tri nho nhat la',Min);

readln

end.