Найти количество элементов массива, расположенных перед первым минимальным

var
  n: integer;
  
begin
  write('n = ');
  readln(n);
  var min := MaxInt; //начальное значение минимального элемента
  var CountMin := 0; //начальное значение количества нужных чисел
  writeln;
  writeln('введите ', n, ' целых чисел: ');
  for var i := 1 to n do begin
    var b := ReadInteger;
    if min > b then begin
      min := b;
      CountMin := i - 1 //нужное количесво
    end
  end;
  writeln(' минимальное число: ', min);
  writeln(' количество чисел перед первым минимальным: ', CountMin);
end.

var
  n: integer;
  
begin
  write('n = ');
  readln(n);
  var A: array[1..100] of integer; //массив целых чисел
  var min := MaxInt; //начальное значение минимального элемента
  var CountMin := 0; //начальное значение количества нужных чисел
  writeln;
  writeln('введите ', n, ' целых чисел: ');
  for var i := 1 to n do begin
    read(a[i]);
    if min > a[i] then begin
      min := a[i];
      CountMin := i - 1 //нужное количесво
    end
  end;
  writeln(' минимальное число: ', min);
  writeln(' количество чисел перед первым минимальным: ', CountMin);
end.

var
  n: integer;
  
begin
  write('n = ');
  readln(n);
  var A: array of integer; //массив целых чисел
  SetLength(A, n); //инициализация динамического массива
  var min := MaxInt; //начальное значение минимального элемента
  var CountMin := 0; //начальное значение количества нужных чисел
  writeln;
  writeln('введите ', n, ' целых чисел: ');
  for var i := 0 to n - 1 do begin
    read(a[i]);
    if min > a[i] then begin
      min := a[i];
      CountMin := i //нужное количесво
    end
  end;
  writeln(' минимальное число: ', min);
  writeln(' количество чисел перед первым минимальным: ', CountMin);
end.