Все положительные элементы матрицы уменьшить на единицу

program kva_1;
 
const
  n = 100;
 
var
  A: array [1..n, 1..n] of integer;
  sum, m, i, j: integer;
 
begin
  write('Введіть розмір матриці A: ');
  readln(m);
  for i := 1 to m do
    for j := 1 to m do
    begin
      write('A[', i, '],', '[', j, ']= ');
      readln(A[i, j]);
    end;
  writeln('Отримана матриця A має вигляд:');
  
  for i := 1 to m do 
  begin
    for j := 1 to m do 
      write(A[i, j]:4); 
    writeln;
  end;
  
  
  sum := 0;
  for i := m downto 1 do
    for j := i downto 1 do
    begin
      sum := sum + A[i, j];
    end;
  writeln('Сума елементів нижнього трикутника = ', sum); 
  
  if sum > 0 then
  begin
    for i := 1 to m do 
      for j := 1 to m do 
      begin
        if A[i, j] > 0 then A[i, j] := A[i, j] - 1;
      end;
    writeln('Перетворена матриця A має вигляд:');
    
    
    for i := 1 to m do 
    begin
      for j := 1 to m do 
        write(A[i, j]:4); 
      writeln;
    end;
  end;
  if (sum < 0) and (sum = 0) then
    writeln('Матрицю не перетворено, оскільки сума елементів нижнього трикутника <= 0'); 
end.