Viết chương trình nhập vào một mảng gồm n số nguyên, sắp sếp theo thứ tự tăng dần và tìm số lớn và bé nhất rồi in ra màn hình kết quả Mod giúp em với ạ 9.30 em phải nộp bài rồi ạ

uses crt;
var A:array[1..1000] of integer;
    N,i,j,tam,max,min:integer;
begin
   clrscr;
   write('Nhap N: '); readln(N);
   for i:=1 to N do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
   end;
   for i:=1 to n-1 do
      for j:=i+1 to n do
      if A[i]>A[j] then
      begin
         tam:=A[i];
         A[i]:=A[j];
         A[j]:=tam;
      end;
   write('Mang sap xep theo thu tu tang dan: ');
   for i:=1 to n do write(A[i]:4);
   writeln;
   max:=A[1]; min:=A[1];
   for i:=2 to n do
   begin
      if A[i]>max then max:=A[i];
      if A[i]<min then min:=A[i];
   end;
   write('Max la: ',max);
   writeln;
   write('Min la: ',min);
   readln
end.