Паскаль: в кв. матрице найти максимальный среди элементов тех строк, которые упорядочены либо по возрастанию, либо по убыванию

[васятко]

Нужна помощь в решении задачи, желательно с комментариями к коду:
Дана матрица размера M x N. Найти максимальный среди элементов тех строк, которые упорядочены либо по возрастанию, либо по убыванию. Если такие строки отсутствуют, то вывести 0.

[Stilet]

Попытки и наработки имеются?

[васятко]

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

[Stilet]

Ну показывай )
Не стесняйся.

[newerow1989]

const m=10;
      n=3;//лучше его не менять
var p:array[1..m,1..n] of byte;
    sort:array[1..m] of boolean;//отсортирован ли массив или нет в i-й строке?
    zn:-1..1;//флаг убывания/возрастания
    i,j,max:byte;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=Random(21);//заполняем массив случайными числами
         Write(p[i,j],'  ');//выводим их на экран
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to m do
   begin
      If p[i,1]<p[i,2] then//определяем первые 2 элемента в строке: если меньше, то...
         zn:=1 else//...пусть будет возрастание, иначе...
         zn:=-1;//...убывание
      sort[i]:=true;//первоначально, пусть будет отсортирован
      For j:=2 to n-1 do//сравниваем текущий и следующий элемент на...
         sort[i]:=sort[i] and (zn*p[i,j]<zn*p[i,j+1]);//...наличие возрастания/убывания
      max:=0;//пусть изначально НЕотсортирован...
      If sort[i] then//...а если отсортирован, то ищем максимальный элемент
         For j:=1 to n do
            If max<p[i,j] then//если текущий элемент больше максимального, то...
               max:=p[i,j];//...его записываем в переменную max
      Writeln(max);//вывод максимального элемента
   end;
   Readln;
end.

Сойдет?