program lab5_2;
const lmax=100;
type matr=array [1..lmax,1..lmax] of integer;
var i,j,n,s: integer;
c: matr;
r:real;
//функция
function min_max(n:integer;var c:matr):integer;
var a,b,min,max: integer;
begin
  min:=maxint;
  for b:=1 to n do
  begin
    max:=c[1,b];
    for a:=1 to n do
      if max<c[a,b] then
        max:=c[a,b];
    if max<min then min:=max;
    end;
  min_max:=min;
end;
//программа
Begin
  repeat
    writeln('Введите размерность матрицы n<=',lmax);
    readln(n);
  until (0<n)and(n<=lmax);
  writeln('Заполните матрицу C ');
  for i:=1 to n do
    for j:=1 to n do
    begin
      repeat
        writeln('Введите нaтуральное число');
        read(r);
      until(r=round(r));
      c[i,j]:=round(r);
    end;
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(c[i,j]:5);
    writeln;
  end;
  s:=min_max(n,c);
  writeln('Минимальное значение среди максимальных в столбцах ',s);
End.