Найти максимальный среди элементов тех строк таблицы, которые упорядочены по неубыванию - Free Pascal

type
  TMatrix = array [1..10,1..5] of Integer;
 
{ поиск max среди упорядоченных по неубыванию строк }
procedure Max1(const a: TMatrix; var max: Integer);
var i, j, mm: Integer;
begin
  max:=Low(max);
  for i:=Low(a) to High(a) do begin
    mm:=a[i,High(a[Low(a)])]; j:=High(a[Low(a)]);
    while (j>=2) and (a[i,j-1]<=a[i,j]) do Dec(j);
    if (j<2) and (max<mm) then max:=mm;
  end;
end;