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

{$I-}
program IND2_9;
uses crt;
const n_max=20; m_max=20;
type TElem=single;
     PHas=array[1..m_max, 1..n_max] of TElem;
procedure Maximum(n,m:integer; var ABC:Phas; var mx:TElem; var r:boolean);
{Процедура находит максимальный среди элементов тех строк, которые упорядочены по неубыванию. 
Входные параметры:n,m - кол-во строк и столбцов в одномерном массиве; ABC - статический массив. 
Выходные параметры: mx - значение искомого числа}

var i,j:integer;

begin
mx:=1.5e-45;
for i:=1 to n do
for j:=1 to m-1 do begin
r:=false;
    if ABC[i,j]<=ABC[i,j+1] then
    r:=true;

if (ABC[i,m]>mx) and r then mx:=ABC[i,m];
end;
end;
var r:boolean;
    n,m,i,j,p:byte;
    mx:TElem;
    a:Phas;
begin
{$I-}
randomize;
repeat
clrscr;
readkey;
 writeln(' 1.Задать размер таблицы');
 writeln(' 2.Заполнить случайным образом');
 writeln(' 3.Заполнить вручную');
 writeln(' 4.Вывести на экран*');
 writeln(' 5.Вызвать подпрограмму');
 writeln(' 6.Выйти');
readln(p);
case p of
1:
begin
clrscr;
writeln('1. Задание размера таблицы');
repeat
write ('Количество строчек');
{$I-} readln (n); {$I+}
until (IORESULT=0);
repeat
write ('Количество столбцов');
{$I-} readln (m); {$I+}
until (IORESULT=0);
writeln('Для возврата в главное меню нажмите ENTER');
readln;
end;
 
2:
begin
clrscr;
randomize;
writeln('2.Заполнение таблицы случайными числами');
begin
for i:=1 to n do begin
for j:=1 to m do
a[i,j]:=random(300);
end;
end;
writeln;
writeln('Для возврата в главное меню нажмите ENTER');
readln;
end;
 
3:
begin
clrscr;
writeln('3.Заполнение таблицы с клавиатуры');
begin
for i:=1 to n do begin
for j:=1 to m do
repeat
write('*[', i, ', ', j, '] = ');
{$I-}read(a[i,j]);{$I+}
until (IORESULT=0);
end;
end;
writeln;
writeln('Для возврата в главное меню нажмите ENTER');
readln;
end;
4:
begin
clrscr;
writeln('4.Просмотр таблицы');
begin
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:8:2);
writeln;
end; end;
writeln;
writeln('Для возврата в главное меню нажмите ENTER');
readln;
end;
5:begin

 Maximum(i,j,a,mx,r);

if r then writeln(mx:6:2)
else writeln('Операция невозможна');
 
 readln;
  end;
  end;
until p=6;
end.