Процедура: найти максимальный и минимальный элементы матриц

uses crt;
type matr=array[1..4,1..4] of integer;
procedure Vvod(var mt:matr;x,y:byte;c:char);
var i,j:byte;
begin
writeln('Введите ',x*y,' элементов матрицы ',c);
for i:=1 to x do
for j:=1 to y do
 begin
  write('el[',i,',',j,']=');
  readln(mt[i,j]);
 end;
clrscr;
end;
procedure Vyvod(var mt:matr;x,y:byte;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to x do
 begin
  for j:=1 to y do
  write(mt[i,j]:4);
  writeln;
 end;
end;
function Max(mt:matr;x,y:byte):integer;
var i,j:byte;
    mx:integer;
begin
mx:=mt[1,1];
for i:=1 to x do
for j:=1 to y do
if mt[i,j]>mx then mx:=mt[i,j];
Max:=mx;
end;
function Min(mt:matr;x,y:byte):integer;
var i,j:byte;
    mn:integer;
begin
mn:=mt[1,1];
for i:=1 to x do
for j:=1 to y do
if mt[i,j]<mn then mn:=mt[i,j];
Min:=mn;
end;
var a,b:matr;
begin
clrscr;;
Vvod(a,4,3,'A');
Vvod(b,4,4,'B');
Vyvod(a,4,3,'A');
writeln('Максимальный=',Max(a,4,3));
Vyvod(b,4,4,'B');
writeln('Максимальный=',Max(b,4,4));
readln
end.