Найти минимальный и максимальный элементы матрицы и их координаты

type TVector = array of real;
type TMatrix = array of TVector;
 
function Vvod(n,m:integer):TMatrix;
var i,j:byte; a:TMatrix;
begin setlength(a,m,n);
      for i:=0 to m-1 do
      begin for j:=0 to n-1 do
            begin write('a ',i+1,',',j+1,' = ');
                  read(a[i,j]);
            end;
            writeln;
      end;
      Vvod:=a;
end;
 
procedure Min(a:TMatrix);
var minX,minY,i,j:byte; min:real;
begin min:=a[0,0];
      minx:=1;
      miny:=1;
      for i:=0 to length(a)-1 do
      begin for j:=0 to length(a[i])-1 do
            if a[i,j]<min then
            begin min:=a[i,j];
                  minx:=j+1;
                  miny:=i+1;
            end;
      end;
      writeln;
      writeln('Min = a[',miny,',',minx,']=',min);
end;
 
procedure Max(a:TMatrix);
var maxX,maxY,i,j:byte; max:real;
begin max:=a[0,0];
      maxx:=1;
      maxy:=1;
      for i:=0 to length(a)-1 do
      begin for j:=0 to length(a[i])-1 do
            if a[i,j]>max then
            begin max:=a[i,j];
                  maxx:=j+1;
                  maxy:=i+1;
            end;
      end;
      writeln;
      writeln('Max = a[',maxy,',',maxx,']=',max);
end;
 
 
var
  n,m:integer; a:TMatrix;
Begin
  write('enter n: ');
  readln(n);
  write('enter m: ');
  readln(m);
  a:=Vvod(n,m);
  Min(a);
  Max(a);
  readln;
End.