Массив: Заменить значения всех элементов главной диагонали массива на значения, противоположные им по знаку.

program dfds;
uses crt;
const n = 10;
      m = 10;
var a : array[1..n,1..m] of integer;
    i, j : byte;
begin
     randomize();
     for i:=1 to n do
         for j:=1 to m do
             a[i,j] := random(20)-10;
     for i:=1 to n do begin
         for j:=1 to m do
             write(a[i,j]:2,' ');
         writeln;
     end;
     
     for i:=1 to n do begin
         for j:=1 to m do begin
             if i=j then
                if (a[i,j]<0) then
                   a[i,j] := abs(a[i,j]);
         end;
     end;
     writeln;
     for i:=1 to n do begin
         for j:=1 to m do
             write(a[i,j]:2,' ');
         writeln;
     end;
 
     readkey;
end.

program dfds;
uses crt;
const n = 10;
        m = 10;
var a : array[1..n,1..m] of integer;
    i, j:Integer;
begin
     randomize;
     for i:=1 to n do
         for j:=1 to m do
             a[i,j] := random(20)-10;
     for i:=1 to n do begin
         for j:=1 to m do
             write(a[i,j]:4);
         writeln;
     end;
     
     for i:=1 to n do begin
         for j:=1 to m do begin
             if i=j then a[i,j] := a[i,j]*-1;
         end;
     end;
     writeln;
     for i:=1 to n do begin
         for j:=1 to m do
             write(a[i,j]:4);
         writeln;
     end;
     readkey;
end.