var

 N, i, numMin: byte;

 a, m: integer;

begin

 write('N = ');

 readln(N);

 numMin := 0; { <-- не введено ещё ни одного числа, i=0 }

 m := MaxInt; { <-- начальное значение минимума }

 writeln('Введите ', N, ' целых чисел:');

 for i := 1 to N do

 begin

   read(a);

   if (numMin = 0) or (a < m) then

   begin

     m := a;

     numMin := i

   end

 end;

 writeln('Количество элементов ',

   'перед первым минимальным: ', numMin - 1);

 readln

end.

Вроде так

Program n_1;

var i, Nu, n, m, l:integer;

begin

   read(Nu, n);

   l:=0;

   m:=n;

   for i:=1 to Nu-1 do begin

       read(n);

       if n<m then begin m:=n; l:=i; end;

   end;

   writeln(l);

end.