Определить минимальный из наибольших элементов двух квадратных целочисленных матриц

const
  n_max = 20;
 
type
  matrix = array [1..n_max, 1..n_max] of integer;
 
procedure CreateMatrix(var s: matrix; var n, m: integer);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do 
      s[i, j] := -random(n_max) div 2 + random(n_max);
end;
 
function MaxInMatrix(z: matrix; n, m: integer): integer;
var
  i, j: integer;
  maxIn: integer;
begin
  maxin := z[1, 1];
  for i := 1 to n do
    for j := 1 to m do
      if z[i, j] > maxin then
        maxin := z[i, j];
  MaxInMatrix := maxin;
end;
 
procedure PrintMatrix(var s: matrix; n, m: integer);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(s[i, j]:6);
    writeln;
  end;
end;
 
 
var
  a, b: matrix;
  mx1, mx2, m1, n1, m2, n2, i, j: integer;
 
begin
  randomize;
  writeln('Матрица А: ');
  writeln('Введите количество строк: ');
  readln(n1);
  writeln('Введите количество столбцов: ');
  readln(m1);
  CreateMatrix(a, n1, m1);
  writeln('Матрица A: ');
  PrintMatrix(a, n1, m1);
  mx1 := MaxInMatrix(a, m1, n1);
  writeln('Max в матрице А: ', mx1);
  writeln('Матрица B: ');
  writeln('Введите количество строк: ');
  readln(n2);
  writeln('Введите количество столбцов: ');
  readln(m2);
  CreateMatrix(b, n2, m2);
  PrintMatrix(b, n2, m2);
  mx2 := MaxInMatrix(b, m2, n2);
  writeln('Max в матрице B: ', mx2);
  if mx1 < mx2 then
    writeln('Min: ', mx1, ' в матрице A')
  else
  if mx2 < mx1 then
    writeln('Min: ', mx2, ' в матрице B')
  else
    writeln('Min A = Min B ');
end.