{Задача: Дана целочисленная прямоугольная таблица размером MxN. Найти среди максимальных элементов строк минимальный}

uses crt;
{Табличные величины. Двумерный массив.}
var a:array [1..100,1..100] of integer;
{ квадратный массив 100х100 с
элементами типа integer}
    b : array [1..100] of integer;
	{см. задачу №62}
    i,j,n,m,min,max : integer;

begin
 clrscr;
 write('Количество строк=');
 readln(m);
 write('Количество столбцов 
 в строке=');
 readln(n);
{Ввод таблицы}
 for i:=1 to m do
  begin
   writeln(i,'-ая строка:');
   for j:=1 to n do
    begin
     write('  ',j,'-ый столбец = ');
     readln(a[i,j]);
    end;
  end;
{поиск максимумов в строках}
for i:=1 to m do
 begin
  max:=a[i,1];
  for j:=2 to n do if a[i,j]>max
   then max:=a[i,j];
  b[i]:=max;
 end;
{поиск минимального в 
полученной таблице}
min:=b[1];
for i:=2 to m do if b[i]