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

const nm = 50;
var A:Array[1..nm] of integer; i,q,r,n,max,min:integer; sr:real;
begin
max := -100; min:=100;
write('Введите кол-во элементов n ');
read(n);
for i:=1 to n do begin
A[i]:= random(100)-50;
write(A[i]:4);
if max< A[i] then begin
max:= A[i];q:=i;
end;
if min > A[i] then begin
min:= A[i];r:=i;
end;
end;writeln;
writeln('min=',min:4,r:4, '  max =' , max:4,q:4);
if abs(r - q) > 1 then begin
if r > q then begin 
for i:=q to r do begin
sr:= sr + A[i];
end;
sr:= sr/(r-q);
end;
if q > r then begin 
for i:=r to q do begin
sr:= sr + A[i];
end;
sr:= sr/(q-r);
end;
write(' sr = ',sr)
end
else
write('Мин и Макс находятся рядом, сред не определить');
end.

const nm = 50;
var A:Array[1..nm] of integer; i,q,r,n,max,min:integer; sr:real;
begin
max := -100; min:=100;
write('Введите кол-во элементов n ');
read(n);
for i:=1 to n do begin
A[i]:= random(100)-50;
write(A[i]:4);
if max< A[i] then begin
max:= A[i];q:=i;
end;
if min > A[i] then begin
min:= A[i];r:=i;
end;
end;writeln;
writeln('min=',min:4,r:4, '  max =' , max:4,q:4);
if abs(r - q) > 1 then begin
if r > q then begin 
for i:=q+1 to r-1 do begin
sr:= sr + A[i];
end;
sr:= sr/(r-q);
end;
if q > r then begin 
for i:=r+1 to q-1 do begin
sr:= sr + A[i];
end;
sr:= sr/(q-r);
end;
write(' sr = ',sr)
end
else
write('Мин и Макс находятся рядом, сред не определить');
end.