delphi (матрицы)

[Polusha]

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

[Nikolai17]

uses crt;
const
  n=4;
  m=4;
var
  a:array[1..n,1..m] of integer;
   i,j:integer
  max:integer;
begin
 
for i:=1 to n do
for j:=1 to m do
begin
a[i,j] := random(20);
end;

for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        write(a[i,j]:6);
      end;
  writeln;
  end;
.................................