Используя функции пользователя, найти min и мах элементы матриц

uses crt;
const nmax=15;
type mat=array [1..nmax,1..nmax] of integer;
var a,b,c: mat;
    na,ma,nb,mb,nc,mc: byte;
 
procedure Vvod(c: char; var n,m: byte; var z: mat);
var i,j: byte;
begin
repeat
write('Количество строк матрицы ',c,', не более ',nmax,': '); readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов матрицы ',c,', не более ',nmax,': '); readln(m);
until m in [1..nmax];
//если матрица заполняется случайными числами
for i:=1 to n do
    for j:=1 to m do
        z[i,j]:=random(199)-99;
{
//если матрица будет введена с клавиатуры, то
for i:=1 to n do
    for j:=1 to m do
        begin
        write(c,'[',i,',',j,']=');
        readln(z[i,j]);
        end;}
end;
 
procedure Vyvod(c: char; n,m: integer; var z: mat);
var i,j: byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
    begin
    for j:=1 to m do
        write(z[i,j]:4);
    writeln;
    end;
writeln;
end;
 
function Min (n,m: byte; z: mat): integer;
var i,j: byte;
    mn: integer;
begin
mn:=z[1,1];
for i:=1 to n do
    for j:=1 to m do
        if z[i,j]<mn then mn:=z[i,j];
Min:=mn;
end;
 
function Max (n,m: byte; z: mat): integer;
var i,j: byte;
    mx: integer;
begin
mx:=z[1,1];
for i:=1 to n do
    for j:=1 to m do
        if z[i,j]>mx then mx:=z[i,j];
Max:=mx;
end;
 
begin
Vvod('A',na,ma,a);
Vyvod('A',na,ma,a);
writeln('Минимальный  элемент матрицы А ',Min (na,ma,a));
writeln('Максимальный элемент матрицы А ',Max (na,ma,a));
writeln;
Vvod('B',nb,mb,b);
Vyvod('B',nb,mb,b);
writeln('Минимальный  элемент матрицы B ',Min (nb,mb,b));
writeln('Максимальный элемент матрицы B ',Max (nb,mb,b));
writeln;
Vvod('C',nc,mc,c);
Vyvod('C',nc,mc,c);
writeln('Минимальный  элемент матрицы C ',Min (nc,mc,c));
writeln('Максимальный элемент матрицы C ',Max (nc,mc,c));
writeln;
readln;
end.