Описать функцию NMin(A,N), находящую номер минимального элемента массива

Type mas=array[1..100] of integer;
Var A,B,C:mas;
    n,m,q:integer;
Procedure Mass(Var A:mas;n:integer);
Var i:byte;
Begin
    For i:=1 to n do
     Begin
      A[i]:=random(11)-5;
      write(A[i]:3);
     End;
    writeln;
End;
Function Min(A:mas;n:integer):integer;
Var i,imin:integer;
Begin
    imin:=1;
    For i:=2 to n do
     if A[i]<A[imin] then imin:=i;
    Min:=imin;
End;
Function Max(A:mas;n:integer):integer;
Var i,imax:integer;
Begin
    imax:=1;
    For i:=2 to n do
     if A[i]>A[imax] then imax:=i;
    Max:=imax;
End;
Begin
    write('Введите размерность массива A: ');readln(n);
    write('Введите размерность массива B: ');readln(m);
    write('Введите размерность массива C: ');readln(q);
    writeln('Массив A');
    Mass(A,n);
    writeln('Массив B');
    Mass(B,m);
    writeln('Массив C');
    Mass(C,q);
    writeln('Min массива A: ',A[Min(A,n)],' его индекс A[',Min(A,n),']');
    writeln('Max массива A: ',A[Max(A,n)],' его индекс A[',Max(A,n),']');
    writeln('Min массива B: ',B[Min(B,m)],' его индекс B[',Min(B,m),']');
    writeln('Max массива B: ',B[Max(B,m)],' его индекс B[',Max(B,m),']');
    writeln('Min массива C: ',C[Min(C,q)],' его индекс C[',Min(C,q),']');
    writeln('Max массива C: ',C[Max(C,q)],' его индекс C[',Max(C,q),']');
End.