Giúp tôi với Viết chương trình nhập vào một mảng tìm số nhỏ thứ hai trong mảng đó

program min_nhi;

uses crt;

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

      n,i,j,tg:integer;

begin

     clrscr;

     write(‘Nhap so luong phan tu cua mang: ‘);   readln(n);

     for i:=1 to n do

          begin

               write(‘Nhap so 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

                    tg:=A[i];

                    A[i]:=A[j];

                    A[j]:=tg;

               end;

     i:=2;

     while A[i]=A[1] do i:=i+1;

     write(‘So nho nhi trong mang la: ‘,A[i]);

     readln;

end.