Вычислить разность между модулями максимального и минимального элементов

program Spark_T;
type arr = array [1..100,1..100] of Integer;
var mas:arr;
    i,j,m,n,min,max,ans:integer;
procedure array_in(var a:arr;n:Integer;m:integer);
begin
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          Write('Array [',i,',',j,'] = ');Readln(a[i,j]);
        end;
    end;
end;
procedure array_out(var a:arr;n:Integer;m:integer);
begin
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          Write(a[i,j],' ');
        end;
    Writeln;
    end;
end;
function array_min(var a:arr;n,m:integer) : Integer;
begin
  min:=a[1,1];
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          if (min>a[i,j]) then min:=a[i,j];
        end;
    end;
  array_min:=min;
end;
function array_max(var a:arr;n,m:integer) : Integer;
begin
  max:=a[1,1];
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          if (max<a[i,j]) then max:=a[i,j];
        end;
    end;
  array_max:=max;
end;
begin
  Write('Enter number | = ');readln(n);
  Write('Enter number - = ');readln(m);
  array_in(mas,n,m);
  array_out(mas,n,m);
  min:=array_min(mas,n,m);
  max:=array_max(mas,n,m);
  Writeln('MIN = ',min);
  Writeln('MAX = ',max);
  min:=Abs(min);
  max:=Abs(max);
  ans:=Abs(min-max);
  Writeln('Answer = ',ans);
  Readln;
end.