В матрице A(m,n) все ненулевые элементы заменить обратным по величине и противоположным по знаку

a: array[1..n, 1..n]of integer;
 
for i:=1 to n do
for j:=1 to n do
 
if a[i,j]<>0 then a[i,j]:=(1/a[i,j])*(-1);

a:array[1..m, 1..n] of integer;
 
for i:=1 to m do
//и т.д.

program massiv;
 
var matr : array[1..20,1..20] of integer;
    i, j, n, m : integer;
 
procedure input;
begin
  for i:=1 to n do
    begin
      for j:=1 to m do
        write('vvedite  ',j,'  element stroki: ');
        readln(matr[i,j]);
      end;
    end;
 
procedure output;
begin
    for i:=1 to n do
    begin
      for j:=1 to m do
       write(matr[i,j]:5);
      writeln;
    end;
end;
 
begin
  write('dlina strok ne bolshe 20: ');
  readln(n);
  write('dlina stolbcov ne bolshe 20: ');
  readln(m);
  if (n<=20)and(m<=20) then
  begin
    input;
    writeln;
    writeln('massiv do vipolneni zadani: ');
    output;
 
    for i:=1 to n do
      for j:=1 to m do
       if matr[i,j]=0 then
       {ПОМОГИТЕ С УСЛОВИЕМ КАК ЗНАК ПОМЕНЯТЬ Я ПОНЯЛ А ВОТ ОБРАТНАЯ ВЛИЧИНА(Я ЗНАЮ ЧТО ЭТО НО БРЕД КАКОЙ ТО ПОЛУЧАЕТСЯ).
       m[i,j]:=ВОТ СЮДА ЕГО ЗАПИСАТЬ}
 
writeln;
 writeln('massiv posle vipolneni zadan: ');
 output;
 end else
 writeln('Razmer matrici ne dolgen bit bolshe 20');
end.

if a[i,j]<>0 then a[i,j]:=(1/a[i,j])*(-1);