Подпрограмма, Работа с матрицами Опции

[Atreides]

Народ, подскажите, как будет выглядеть подпрограмма нахождения минимума матрицы, через процедуру, которую нужно просто дописать вот к этому коду?

Код

program Matrix;
uses
 SysUtils;
 Type TMatrix=array[1..100,1..100] of integer;
 var x:TMatrix;
 procedure inputmatrix(var a:TMatrix;m,n:cardinal);
 var i,j:cardinal;
 begin
 i:=1;    repeat
 j:=1;    repeat
 a[i,j]:=random(999);
 j:=j+1;  until
 j>m;
 i:=i+1;  until
 i>n;    end;
 procedure outputmatrix(a:TMatrix;m,n:cardinal);
 var i,j:cardinal;
 begin
 i:=1;   repeat
 j:=1;   repeat
 write(a[i,j]:6);
 j:=j+1; until
 j>m;
 i:=i+1; writeln;
 until  i>n;
 end;
 begin
 inputmatrix(x,10,10);
 outputmatrix(x,10,10);
 readln;
 end.

[Atreides]

А как заставить её находить максимум всей матрицы? И как я понял, конечный код выглядит так?

Код

program Matrix;
uses
 SysUtils;
 Type TMatrix=array[1..100,1..100] of integer;
 var x:TMatrix;
 procedure inputmatrix(var a:TMatrix;m,n:cardinal);
 var i,j:cardinal;
 begin
 i:=1;    repeat
 j:=1;    repeat
 a[i,j]:=random(999);
 j:=j+1;  until
 j>m;
 i:=i+1;  until
 i>n;    end;
 procedure outputmatrix(a:TMatrix;m,n:cardinal);
 var i,j:cardinal;
 begin
 i:=1;   repeat
 j:=1;   repeat
 write(a[i,j]:6);
 j:=j+1; until
 j>m;
 i:=i+1; writeln;
 until  i>n;
 end;
   function minimum_matrix(a:TMatrix;m,n:cardinal): integer;
 var i,j:cardinal;
 min_val: integer;
 begin
 min_val := a[1, 1];
 i:=1;   repeat
 j:=1;   repeat
 if min_val > a[i, j]
 then min_val := a[i, j];
 j:=j+1; until
 j>m;
 i:=i+1;
 write(min_val);
 writeln;
 until  i>n;
 result := min_val;
 end;
 begin
 inputmatrix(x,10,10);
 minimum_matrix(x,10,10);
 outputmatrix(x,1,1);
 readln;
 end.