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

type matr = array[1..10, 1..10] of real;
 
procedure Generate(var a: matr; n, m: integer);
var i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := -15 + random * 31;
end;
 
function MinElem(a: matr; n, m: integer): real;
var i, j: integer;
    min: real;
begin
  min := a[1, 1];
  for i := 1 to n do
    for j := 1 to m do
      if a[i, j] < min then min := a[i, j];
  MinElem := min;
end;
 
procedure RevPrint(a: matr; n, m: integer);
var i, j: integer;
begin
  for i := n downto 1 do begin
    for j := m downto 1 do
      write(a[i, j]:7:2);
    writeln;
  end;
  writeln;
end;
 
procedure Print(a: matr; n, m: integer);
var i, j: integer;
begin
  for i := 1 to n do begin
    for j := 1 to m do
      write(a[i, j]:7:2);
    writeln;
  end;
  writeln;
end;
 
var a, b: matr;
    na, ma, nb, mb, i, j: integer;
begin
  randomize;
  na := 4; ma := 5;
  nb := 3; mb := 8;
  Generate(a, na, ma); Generate(b, nb, mb);
  Print(a, na, ma); Print(b, nb, mb);
  writeln('Min1 = ', MinElem(a, na, ma):0:2, '; Min2 = ', MinElem(b, nb, mb):0:2);
  RevPrint(a, na, ma); RevPrint(b, nb, mb);
end.