В матрице все отрицательные эл. главной диагонали, заменить их модулями

program p1;
{Заменить отр. эл. главной диагонали их модулями}
var a:array [1..50, 1..50] of integer;
     x:integer;
     n,m,i,j:byte;
Begin
      writeln (' Введите кол-во строк и столбцов матрицы ');
      read(n,m);
      writeln (' Введите элементы матрицы ');
For i:=1 to n do
For j:=1 to n do
      Readln ( a[i,j] );
??????????????????????????????????????????????????????
End.

program p1;
{Заменить отр. эл. главной диагонали их модулями}
var a:array [1..50, 1..50] of integer;
     x:integer;
     n,m,i,j:byte;
Begin
      writeln (' Введите кол-во строк и столбцов матрицы ');
      read(n,m);
      writeln (' Введите элементы матрицы ');
For i:=1 to n do
For j:=1 to n do
      Readln ( a[i,j] );
writeln ('Исходная матрица ');
For i:=1 to n do
    begin
    For j:=1 to n do
        write(a[i,j]:4);
        if (i=j) and (a[i,j]<0) then
           a[i,j]:=abs(a[i,j]);
    writeln;
    end;
writeln ('Итоговая матрица ');
For i:=1 to n do
    begin
    For j:=1 to n do
        begin
        if (i=j) and (a[i,j]<0) then
           a[i,j]:=abs(a[i,j]);
        write(a[i,j]:4);
        end;
    writeln;
    end;
End.