Получить новую матрицу, элементы которой есть сумма элементов данной матрицы с наименьшим элементом среди

uses
crt;
 
const
  n = 10;
  m = 10;
 
var
  A: array[1..n, 1..m] of integer;
  s, i, j, jmin, imin, min: integer;
 
begin
  clrscr;
  randomize;
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      A[i, j] := -n * m div 2 + random(n * m);
      write(A[i, j]:5);
    end;
    writeln;
  end;
  s := 0;
  min := A[n, n];
  for i := 1 to n do 
    for j := 1 to n do 
    begin
      if (j > n - i + 1) and (min > A[i, j]) then
      begin
        min := A[i, j];
        imin := i;
        jmin := j;
      end;
      s := s + a[i, j];
    end;
  writeln('Min: ', min);
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      if j > n - i + 1 then
        textcolor(red)
      else
        textcolor(green);
      if (i = imin) and (j = jmin) then
        textcolor(white);
      write(a[i, j]:5);
    end;
    writeln;
  end;
  textcolor(white);
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      A[i, j] := a[i, j] + min;
      write(A[i, j]:5);
    end;
    writeln;
  end;
end.