Найти максимальный среди всех элементов тех строк заданной матрицы, которые упорядочены (либо по возрастанию, либо по убыванию). Составить программу в Pascal.

При использовании random() упорядоченные строки получаются редко. Можете массив вводить с клавиатуры. const n=5; m=4; var  a:array[1..n,1..m] of integer; i,j,max:integer; b1,b2:boolean; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do  begin  for j:=1 to m do   begin    a[i,j]:=random(100);    write(a[i,j]:4);   end;   writeln;  end; max:=-1000; for i:=1 to n do  begin  b1:=true; b2:=true;  for j:=1 to m-1 do   begin   if a[i,j]a[i,j+1] then b2:=false;   end;  if b1 or b2 then   for j:=1 to m do    if a[i,j]>max then max:=a[i,j];  end; if max<>-1000  then writeln('max = ',max)  else writeln('В массиве нет упорядоченных строк'); end. Пример: 45 34 88 53  2 7 36 71 48 57 28 42 75 61 10 93 15 3 61 54 max = 71