Заданная матрица M*n . Для строк, в которых максимальный элемент находится левее минимального, найти среднее арифметичес

var m,n,i,j,s,min,max:integer;
a:array [1..10000,1..10000] of integer;
b_min,b_max:array [1..10000] of integer;

begin
read(m, n);
for i:=1 to m do begin

max:=a[i,1]; min:=a[i,1];
b_max:=1; b_min:=1;

for j:=2 to n do
begin
read(a[i,j]);
if a[i,j]>max then begin max:=a[i,j]; b_max:=j; end
else
begin min:=a[i,j]; b_min:=j; end;
end;
readln; end;
for i:=1 to m do begin
if b_max then
for j:=1 to n do
s:=s+a[i,j];
writeln(s/j); s:=0; end;

end.

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