Найти матрицу R, при сложении L с которой была бы получена матрица с нулевыми диагональными элементами

program Red6;
uses crt;
const n=4;
type mas=array [1..n, 1..n] of real;
var L, R, sum:mas;
    i, j:integer;
procedure matr(var x: mas);
 
          begin
           For i:=1 to n do
           For j:=1 to n do
           x[i,j]:=random(141)+10;
          end;
procedure print(x: mas);
 
          Begin
            For i:=1 To n Do
            Begin
            For j:=1 To n Do Write(x[i,j]:6:0);
            Writeln;
            end;
          End;
function summ(var sum: mas): mas;
 
         begin
          For i:=1 to n do
          For j:=1 to n do
          sum[i,j]:=L[i,j]+R[i,j];
         end;
 BEGIN clrscr; randomize;
 matr(L); matr(R);
 R[1,1]:=0-L[1,1];
 R[2,2]:=0-L[2,2];
 R[3,3]:=0-L[3,3];
 R[4,4]:=0-L[4,4];
 summ(sum);
 writeln('матрица L'); print(L);
 writeln('матрица R'); print(R);
 writeln('суммированная матрица'); print(sum);
 readln;
 end.

program Red6;
uses crt;
const n=4;
type mas=array [1..n, 1..n] of integer;
procedure matr(var x: mas);
var i,j:integer;
 begin
  For i:=1 to n do
  For j:=1 to n do
  x[i,j]:=random(141)+10;
 end;
 
procedure print(x: mas);
var i,j:integer;
 Begin
  For i:=1 To n Do
   Begin
    For j:=1 To n Do
    Write(x[i,j]:4);
    Writeln;
   end;
 End;
function IsZero(x: mas): boolean;
var i:integer;
    f:boolean;
 begin
  i:=1;
  f:=true;
  while(i<=n)and f do
  if x[i,i]<>0 then f:=false
  else i:=i+1;
  IsZero:=f;
 end;
 var L,R,Sum:mas;
     i,j:integer;
 BEGIN
 clrscr;
 randomize;
 matr(L);
 writeln('матрица L:');
 print(L);
 matr(R);
 for i:=1 to n do
 R[i,i]:=-L[i,i];
 writeln('матрица R:');
 print(R);
 for i:=1 to n do
 for j:=1 to n do
 Sum[i,j]:=L[i,j]+R[i,j];
 writeln('Сумма матриц L+R:');
 print(Sum);
 if IsZero(L) then write('Матрица найдена верно')
 else write('Матрица найдена неверно');
 readln;
 end.