Индекс первого минимума

Решите задачу одним циклом for, допускается применение условных операторов.

Заданы n целых чисел. Выведите индекс (позицию) первого из минимальных элементов последовательности. Элементы последовательности пронумерованы от единицы слева направо.

----------------------------------------------------
var
a:array[1..1000000]of longint;
min,n,i,mini:longint;
 begin

readln(n);
  for i:= 1 to n do
   read(a[i]);
   mini:=1;
 min:=a[1];
  for i:= 1 to n do
   if a[i]<min then begin
    min:= a[i];
    mini:=i;
   end;
   writeln(mini);
  end.