Построить матрицу B, где каждый элемент Bij равен наименьшему из элементов матрицы Mij

var
  a, b: array [,]  of real;
  i, j, k, l, m, n: integer;
 
begin
  ReadLnInteger('m =');
  ReadLnInteger('n =');
  readln(m, n);
  setlength(a, m, n);
  setlength(b, m, n);
  for i := 0 to m - 1 do 
    for j := 0 to n - 1 do 
      readln(a[i, j]);
  for i := 0 to m - 1 do
    for j := 0 to n - 1 do 
    begin
      b[i, j] := a[(i + 1) mod m, (j + 1) mod n];
      for k := 0 to m - 1 do
        for l := 0 to n - 1 do
          if (i <> k) and (j <> l) and (a[k, l] < b[i, j]) then 
            b[i, j] := a[k, l];
    end;
  
  for i := 0 to m - 1 do 
  begin
    for j := 0 to n - 1 do
    begin
      write(b[i, j]:8:3);
      write;
    end
  end;
end.

var
  a, b: array [,]  of real;
  i, j, k, l, m, n: integer;
 
begin
  m:=ReadLnInteger('m =');
  n:=ReadLnInteger('n =');
  if (m < 2) or (n < 2) then 
  begin
writeln('Ошибочный размер матрицы');
end;
  setlength(a, m, n);
  setlength(b, m, n);
  for i := 0 to m - 1 do 
    for j := 0 to n - 1 do 
      readln(a[i, j]);
  for i := 0 to m - 1 do
    for j := 0 to n - 1 do 
    begin
      b[i, j] := a[(i + 1) mod m, (j + 1) mod n];
      for k := 0 to m - 1 do
        for l := 0 to n - 1 do
          if (i <> k) and (j <> l) and (a[k, l] < b[i, j]) then 
            b[i, j] := a[k, l];
    end;
  for i := 0 to m - 1 do 
  begin
    for j := 0 to n - 1 do
    begin
      write(b[i, j]:8:2);
      write;
    end
  end;
end.