mn giúp tui vs : tìm min và csmin , nếu trong dãy có nhiều min giống nhau thì hãy đưa ra màn hình min có chỉ số nhỏ nhất?

Program NN;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,min: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        min:=maxlongint;
        For i:=1 to n do
        Begin
                Read(A[i]);
                If A[i]<min then min:=A[i];
        End;
        Write(min,' ');
        For i:=1 to n do
                If A[i] = min then
                Begin
                        Write(i);
                        Break;
                End;
        Readln
End.