Дан массив из 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 будет больше то в описании увеличь размер массива там где подчеркнуто