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

[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.