Дан массив из N различных элементов. Определить количество расположенных до минимального элемента массива

var a:array[1..10000]of longint;      n,i,j,min:integer; begin   writeln('vvedite n');   readln(n);   writeln('vvedit chisla');   for i:=1 to n do read(a[i]);   min:=a[1];   for i:=1 to n do     begin        if min>a[i] then begin min:=a[i];j:=i;end;     end;   write(i-1); end. если n будет больше то в описании увеличь размер массива там где подчеркнуто