SumArr

program n_1;
 type
  TM = array of array of integer;
 var a, b, Suum :TM;
     i, j, L1, S1, L2, S2: integer;

Procedure dsdjl(ar:TM);
    Var i, j : integer;
    Begin
   For i:=0 to (Length(ar)-1) do
     Begin
      for j:=0 to (Length(ar[0])-1) do
       write(ar[i,j],' ');
      writeln;
     end;
  End;

Procedure radome(ar:TM; var arr:TM);
   Var i, j : integer;
   Begin
     For i:=0 to (Length(ar)-1) do
      Begin
       for j:=0 to (Length(ar[0])-1) do
        ar[i,j]:=random(10);
       writeln;
      end;
   End;

Function SumArr(ar,br:TM):TM;
    Var i, j : integer;
        Sum :TM;
 Begin
  SetLength(Sum, Length(ar));
   for i:=0 to (Length(ar)-1) do
    SetLength(Sum[i], (Length(ar[1])));
   If ((Length(ar))<>(Length(br))) and ((Length(ar[1]))<>(Length(br[1]))) then
       Writeln('Сложение невозможно')
    Else
     begin
      For i:=0 to Length(ar) - 1 do
        for j:=0 to Length(ar[i]) - 1 do
           Sum[i,j]:=ar[i,j] + br[i,j];
        Writeln('Сумма матриц >> ');
      dsdjl(Sum);
     end;
    SumArr:=Sum;
 End;

Begin
 Randomize;
 Write('Введите кол-во строк в первой матрице >> ');
 read(L1);
 Write('Введите кол-во столбцов в первой матрице >> ');
 read(S1);
 SetLength(a, L1);
 for i:=0 to (L1-1) do

  SetLength(a[i], S1);
 radome(a, a);
 writeln('Первая матрица:');
 dsdjl(a);
 writeln;
  Write('Введите кол-во строк во второй матрице >> ');
  read(L2);
  Write('Введите кол-во столбцов во второй матрице >> ');
  read(S2);
  SetLength(b, L2);
  for i:=0 to (L2-1) do
   SetLength(b[i], S2);
  radome(b, b);
  writeln('Вторая матрица:');
  dsdjl(b);
  writeln;
  SumArr(a,b);
 {SetLength(Suum, Length(a));
 for i:=0 to Length(a) - 1 do
  SetLength(Suum[i], Length(a[1]));
 Suum:=SumArr(a,b);
 Writeln('Сумма матриц >> ');
dsdjl(Suum);}

End.