Viết ctr con tìm số nhỏ hơn trong hai số a ,b .Áp dụng ctr con đó để tìm số nhỏ nhất của n số được nhập vào từ bàn phím .mọi người giúp mik vs 😣

uses crt;
var  
      a,b: array[1..10000] of integer;
      n,i: integer;  
     
function min(a,b: integer):integer;
begin
      If a > b then min:=b
         else min:=a;
end;

begin
       clrscr;
      
       write('Nhap n= ');readln(n);
      
       for i:=1 to n do
             begin
                writeln('- CAP SO THU ',i,' -');
                write('Nhap so thu 1: ');readln(a[i]);
                write('Nhap so thu 2: ');readln(b[i]);
             end;
            
       for i:=1 to n do
      
   writeln('Min cua cap so thu ',i,' la: ',min(a[i],b[i]));
         
  readln;
end.

program nho_nhat;

uses crt;

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

      n,i,m:integer;

{------chuong-trinh-con-------}

function min(x,y:integer):integer;

begin

       if x<y then min:=x else min:=y;

end;

{------chuong-trinh-chinh------}

BEGIN

       clrscr;

       write('Nhap n: ');  readln(n);

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(A[i]);

              end;

       m:=A[1];

       for i:=2 to n do

              m:=min(m,A[i]);

       write('So nho nhat la: ',m);

       readln;

end.