Отыскать наибольший посреди всех частей тех строк данной матрицы, которые упорядочены

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
nbsp;nbsp;nbsp;nbsp;m,n,i,j,mx:integer;
nbsp;nbsp;nbsp;nbsp;f,b:boolean;
procedure Max;
var i,j:integer;
begin
b:=false;
i:=1;
mx:=-maxint-1;
for i:=1 to m do
nbsp;begin
nbsp;nbsp;nbsp;j:=2;
nbsp;nbsp;nbsp;f:=true;
nbsp;nbsp;nbsp;while(jlt;n)and f do
nbsp;nbsp;nbsp;if(a[i,j]lt;=a[i,j-1])and(a[i,j]lt;=a[i,j+1])если не нужна требовательная упорядоченность, символ = всюду убрать
nbsp;nbsp;nbsp;or (a[i,j]gt;=a[i,j-1])and(a[i,j]gt;=a[i,j+1]) then f:=false
nbsp;nbsp;nbsp;else j:=j+1;
nbsp;nbsp;nbsp;if f then
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;b:=true;
nbsp;nbsp;nbsp;nbsp;nbsp;for j:=1 to n do
nbsp;nbsp;nbsp;nbsp;nbsp;if a[i,j]gt;mx then mx:=a[i,j];
nbsp;nbsp;nbsp;nbsp;end;
nbsp;end;
end;
nbsp;
begin
clrscr;
repeat
write(Количество строк до ,nmax, m=);
readln(m);
until m in [1..nmax];
repeat
write(Количество столбцов от 3 до ,nmax, n=);
readln(n);
until n in [3..nmax];
clrscr;
writeln(Введите элементы матрицы, целые числа, в том числе упорядоченные строчки:);
for i:=1 to m do
for j:=1 to n do
nbsp;begin
nbsp;nbsp;gotoXY(j*4,3+i);
nbsp;nbsp;readln(a[i,j]);
nbsp;end;
writeln;
Max;
if not b then write(В матрице нет строго упорядоченных строк)
else write(Наибольший элемент в упорядоченных строках=,mx);
readln
end.