Определить количество положительных, отрицательных и нулевых элементов, расположенных между минимальным и максимальным его элементами

const
  n = 1000;
 
type
  vector = array[1..n] of integer;
 
var
  t, i: integer;
  vectorn: vector;
  min, n_min, max, n_max: integer;
  count_otr: integer;// (количество отрицательных элементов)
  count_pol: integer;// (количество положительных элементов) 
  count_null: integer;// (количество нулевых элементов) 
 
begin
  randomize;
  min := MaxInt;
  n_min := 1;
  max := -MaxInt;
  n_max := 1;
  for i := 1 to n do 
  begin
    vectorn[i] := -n div 2 + random(n);
    write(vectorn[i]:8);
    if vectorn[i] < min then
    begin
      min := vectorn[i];
      n_min := i;
    end;
    if vectorn[i] > max then
    begin
      max := vectorn[i];
      n_max := i;
    end;
  end;
  writeln;
  writeln('Min: ', min, ' at position: ', n_min);
  writeln('Max: ', max, ' at position: ', n_max);
  count_otr := 0;
  count_pol := 0;
  count_null := 0;
  if n_min > n_max then
  begin
    t := n_min;
    n_min := n_max;
    n_max := t;
  end;
  for i := n_min to n_max do
  begin
    if vectorn[i] < 0 then
      inc(count_otr);
    if vectorn[i] > 0 then
      inc(count_pol);
    if vectorn[i] = 0 then
      inc(count_null);
  end;
  writeln('Количество отрицательных элементов: ', count_otr);
  writeln('Количество положительных элементов: ', count_pol);
  writeln('Количество нулевых элементов: ', count_null);
end.

    if vectorn[i] < 0 then
      inc(count_otr)
    else if vectorn[i] > 0 then
      inc(count_pol)
    else
      inc(count_null);

  if n_min<>nmax then begin
    ...
  end else
    WriteLn('Все элементы вектора равны между собой');