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