Элемент матрицы назовем седловой точкой, если он является минимальным в собственной

repeat
write(Vvedite kolichestvo strok );
readln(x);
until x in [1..nmax];
repeat
write(Kolichestvo stolbcov );
readln(y);
writeln( nbsp;nbsp;nbsp;Polyshilas takaia matritsa );
until y in [1..nmax];
for i:=1 to x do
nbsp;begin
nbsp;nbsp;for j:=1 to y do
nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;mt[i,j]:=random(50);
nbsp;nbsp;nbsp;nbsp;write(mt[i,j]:6);
nbsp;nbsp;nbsp;end;
nbsp;nbsp;writeln;
nbsp;end;
end;
procedure search(mt:Tmatr;x,y:byte;var mx:integer);
var lit: array[1..nmax] of integer;
nbsp;nbsp;nbsp;nbsp;i,j:byte;
nbsp;nbsp;nbsp;nbsp;k:integer;
begin
writeln(Naimenshie hisla matritsi:);
for i:=1 to x do
nbsp;begin
nbsp;nbsp;k:=mt[i,1];
nbsp;nbsp;for j:=1 to y do
nbsp;nbsp;if k gt; mt[i,j] then k:=mt[i,j];
nbsp;nbsp;writeln(naimenshee iz stroki ,i,=,k);
nbsp;nbsp;lit[i]:=k;
nbsp;end;
writeln;
mx:=lit[1];
for i:=1 to x do
if mx lt; lit[i] then mx:=lit[i];
writeln(naibolshee iz naimenshih=,mx);
end;
var
nbsp;nbsp;n,m:byte;
nbsp;nbsp;max:integer;
nbsp;nbsp;mas:Tmatr;
begin
clrscr;
Randomize;
Vvod(mas,n,m);
search(mas,n,m,max);
readln;
end.