Найти максимальный элемент массива среди минимальных элементов строк таблицы

Var A:array[1..20,1..20] of integer;
    B:array[1..20] of integer;
    i,j,n,m,imax:byte;
Begin
    write('Кол-во строк: ');readln(n);
    write('Кол-во столбцов: ');readln(m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    For i:=1 to n do
    Begin
      B[i]:=1;
      For j:=2 to m do
       if A[i,j]<A[i,B[i]] then B[i]:=j;
    End;
    imax:=1;
    For i:=2 to n do
     if A[i,B[i]]>A[imax,B[imax]] then imax:=i;
    writeln('Max элемент среди min элементов строк = ',A[imax,B[imax]],' индексы A[',imax,',',B[imax],']');
End.

uses crt;
 
var
    matrix: array[1..100,1..100] of integer;
    max, min, i, j: integer;
    m,n:integer;
begin
writeln('vvedite razmery');
readln(n,m);
 
    randomize;
    for i := 1 to n do begin
        for j := 1 to m do begin
            matrix[i,j] := random(21)+1;
            write(matrix[i,j]:3);
        end;
        writeln;
    end;
 
    max := 0;
    for i := 1 to n do begin
        min := matrix[i,1];
        for j := 2 to m do
            if matrix[i,j] < min then
                min := matrix[i,j];
        if min > max then
            max := min
    end;
 
    writeln('Max element sredi min elementov strok ',max);
 
readln
end.

uses crt;
 
var
    matrix: array[1..100,1..100] of integer;
    i_max, j_max, j_min, i, j: integer;
    m,n:integer;
begin
    writeln('vvedite razmery');
    readln(n,m);
 
    randomize;
    for i := 1 to n do begin
        for j := 1 to m do begin
            matrix[i,j] := random(21)+1;
            write(matrix[i,j]:3);
        end;
        writeln;
    end;
 
    i_max := 0;
    j_max := 0;
    for i := 1 to n do begin
        j_min := 1;
        for j := 2 to m do
            if matrix[i, j] < matrix[i, j_min] then
                j_min := j;
 
        if (i_max * j_max = 0) or (matrix[i, j_min] > matrix[i_max, j_max]) then
        begin
            i_max := i; j_max := j_min;
        end;
    end;
 
    writeln('Max element sredi min elementov strok ',matrix[i_max, j_max]);
    writeln('Indexes : ', i_max, ' ', j_max);
 
    readln
end.