В двумерном массиве A(m,n) найти самое маленькое по модулю значение и вычесть его из всех элементов массива

Var a:array[1..1000,1..1000] of longint;
    i,j,m,n,k,min:longint;
 begin
  Read(n,m);
  min:=maxlongint;
  for i:=1 to n do
   for j:=1 to m do
    begin
     Read(a[i,j]);
     if a[i,j]<min then min:=a[i,j] // находим минимальный елемент при считывании
    end;
   
  Writeln();
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      dec(a[i,j],min); // уменьшаем
      Write(a[i,j],' '); // и выводим
     end;
    Writeln();
   end;
 end.

Program Lab_work_3;
Var a:array[1..10,1..10] of longint;
    i,j,m,n,k,min:longint;
 begin
  writeln('Введите размеры массива:');
  Read(n,m);
  min:=$7FFFFFFF;
  writeln('Введите массив:');
  for i:=1 to n do
   for j:=1 to m do
    begin
     Read(a[i,j]);
     if a[i,j]<min then min:=a[i,j]
    end;
  Writeln('Минимальное число равно ' ,min);
  Writeln('Получившийся массив, если вычесть из каждого его элемента число ',min);
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      dec(a[i,j],min);
      Write(a[i,j],' ');
     end;
    Writeln();
   end;
 end.

const
  maxlongint=$7FFFFFFF;
...
  min:=maxlongint;

const
  maxlongint=2147483647;
...
  min:=maxlongint;

  min:=2147483647;