Найти наибольшее и наименьшее значения, их индексы и среднее арифметическое элементов, расположенных между ними в массиве A(n). Вывести массив, среднее арифметическое, наименьшее и наибольшее значения и их индексы.

Pascal   const      n = 5;   var    a : array [1..n] of integer;    b,m,ib,im : integer;    i : integer;       k : integer;    sr : real;   begin    a[1] := 5;  a[2] := 8;  a[3] := 7;  a[4] := 6;  a[5] := 10;      b := a[1];  m := a[1];  ib := 1;  im := 1;      for i := 2 to n do    if a[i] > b then     begin      b := a[i];      ib := i;     end    else      if a[i] < m then     begin        m := a[i];      im := i;       end;    sr := 0; k := 0; if ib > im then   for i := im +1 to ib -1 do      begin       sr := sr + a[i];       k := k +1;     end    else     for i := ib +1 to im -1 do        begin         sr := sr + a[i];       k := k +1;      end;   sr := sr/k; writeln ();   for i := 1 to n do    write (a[i],' ');      writeln ();   writeln ('sr=',sr:3:3);     writeln ();   writeln ('max=',b,' index =',ib);   writeln ('min=',m,' index =',im);     end.