Определить номер наименьшего по абсолютной величине элемента массива А. Вот есть код, который находит наименьший элемент и его индекс, но никак не могу его заставить выдавать только индекс

nmax=10
i=0
n=0
imax=0
Min=0.0
A=[0.0]*nmax
n=int(input("Введите размер массива "))
if n<1 or n>nmax:
print ("Не верно задан размер массива ")
else:
for i in range (n):
A[i]=float(input("Введите элемент массива {0:2d} ".format(i)))
#print (A)
for i in range (n):
print ("{0:.2f} ".format(A[i]), end=' ')
print("\n")
imax=0
Min=A[0]
for i in range (1,n,1):
if A[i]<Min:
Min=A[i]
imax=i
print ("Минимальный элемент массива равен {0:.2f} и его индекс равен {1:2d}".format(Min, imax))​

1) program average; var     i: integer;     answer,  s, tmp: real; begin     for i : = 1 to 5 do     begin         readln(tmp);         s : = s + tmp       end;     answer : = s  / 5;     writeln(answer) end. 2) program  equation; var     a, b, c, d, x1, x2: real; begin       writeln('ввеедите коэфициенты квадратного многочлена');       readln(a);       readln(b);       readln(c);     if a < >   0 then      begin      d : = b*b - 4*a*c;       if d < 0 then         writeln('действительных корней нет')     else if d = 0 then     begin         x1 : = -b/(2*a);         writeln('единственный корень:   ',x1)     end else     begin         x1 : = (-b + sqrt(d))  /  (2*a);         x2 : = (-b - sqrt(d))  /  (2*a);         writeln('два корня:   ',x1,', ',x2)       end;     end         else writeln('старший коэфициент не может равняться 0') end.