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

{В целочисленном векторе vectorn определить среднее арифметическое
положительных и отдельно среднее арифметическое отрицательных элементов
вектора, расположенных между минимальным и максимальным его элементами.
Предусмотреть случай, когда таких элементов нет (все элементы вектора
равны между собой).}
 
const
  arr_max=100;
Var
  t,i,v_max,v_min,n:integer;
  max, n_max:integer;
  min, n_min:integer;
  sr_arifm_otr,sr_arifm_pol:real;
  a:array[1..arr_max] of integer;
begin
  randomize;
  write('Введите размерность массива: ');  readln(n);
  for i:=1 to n do
    begin
      a[i]:=random(arr_max) - arr_max div 2;
      write(a[i]:4);
//      readln(a[i]); //для ввода с клавиатуры
    end;
  max:=a[1];  min:=a[1];  n_max:=1; n_min:=1;
  sr_arifm_otr:=0;  sr_arifm_pol:=0;
  for i:=2 to n do
    begin
      if a[i]>max then
        begin
          max:=a[i];
          n_max:=i;
        end;
      if a[i]<min then
        begin
          min:=a[i];
          n_min:=i;
        end;
      if a[i]>0 then
        begin
          sr_arifm_pol:=sr_arifm_pol+a[i];
          inc(v_max);
        end;
    end;
  writeln;
  writeln('Maximum: ',max,' at position: ',n_max);
  writeln('Minimum: ',min,' at position: ',n_min);
  if v_max<>0 then
    writeln('Average of positive: ',sr_arifm_pol/v_max:0:2)
  else
    writeln('No found');
  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
    if a[i]<0 then
      begin
        sr_arifm_otr:=sr_arifm_otr+a[i];
        inc(v_min);
      end;
  if v_min<>0 then
    writeln('Average of negative: ',sr_arifm_otr/v_min:0:2)
  else
    writeln('No found');
  readln;
end.