Составить функцию для определения минимального элемента матрицы NxN

Uses crt;
Const nmax = 100;
Type TMatrix = array[1..nmax,1..nmax] of integer;
Var
  a: TMatrix;
  i,j,n: byte;
  min: integer;
 
Function Minimum(a: Tmatrix; n: byte): integer;
  var
    i,j: byte;
    m: integer;
  begin
    m:=a[1,1];
    For i:=1 to n do
    For j:=1 to n do
      If a[i,j]<m then m:=a[i,j];
    Minimum:=m
  end;
 
Begin  
  Clrscr;
  Randomize;
  Repeat
    Write('Введите N (до ',nmax,') : ');
    Readln(n)
  Until n in [1..nmax];
 
  Writeln('Исходная матрица:');
  For i:=1 to n do
    begin
      For j:=1 to n do
        begin
          a[i,j]:=random(61)-30;
          Write(a[i,j]:4)
        end;
      Writeln
    end;
  Writeln;
 
  min:=Minimum(a,n);
  If min = 0 then writeln('Минимальный элемент равен нулю')
    Else begin
      Writeln('Новая матрица');
      For i:=1 to n do
        begin
          For j:=1 to n do
            begin
              If i=j then inc(a[i,j],abs(min));
              Write(a[i,j]:4)
            end;
          Writeln
        end
    end;
  Readkey
End.