Опишите процедуру сложения матриц А и В. Опишите процедуру транспонирования матрицы А

type
    TM = Array[1..100, 1..100] Of LongInt;
    TMass = record //матрица с размерами
        l1, l2 : Byte; //размеры NxM
        mass : TM; //собственно матрица
    end;
 
var
    a, b : TMass;
 
procedure InitMass(var arr : TMass);
var
    i, j, n, m : Byte;
begin
    Write('n, m='); ReadLn(n, m);
    arr.l1 := n; arr.l2 := m;
    for i := 1 to n do
        for j := 1 to m do
            arr.mass[i, j] := Random(199) - 99;
end;
 
procedure PrintMass(arr : TMass);
var
    i, j : Byte;
begin
    WriteLn;
    with arr do
        for i := 1 to l1 do
        begin
            for j := 1 to l2 do
                Write(mass[i, j]:6);
            WriteLn;
        end;
end;
 
function TranspMass(arr : TMass) : TMass;
var
    Result : TMass;
    i, j : Byte;
begin
    for i := 1 to arr.l1 do
        for j := 1 to arr.l2 do
            Result.mass[j, i] := arr.mass[i, j];
    Result.l1 := arr.l2; Result.l2 := arr.l1;
    TranspMass := Result;
end;
 
function MultMass(arr1, arr2 : TMass) : TMass;
var
    Result : TMass;
    i, j, k : Byte;
    sum : LongInt;
begin
    for i := 1 to arr1.l1 do
        for j := 1 to arr2.l2 do
        begin
            sum := 0;
            for k := 1 to arr1.l2 do
                sum := sum + arr1.mass[i, k] * arr2.mass[k, j];
            Result.mass[i, j] := sum;
        end;
    Result.l1 := arr1.l1; Result.l2 := arr2.l2;
    MultMass := Result;
end;
 
function SumMass(arr1, arr2 : TMass) : TMass;
var
    Result : TMass;
    i, j : Byte;
begin
    for i := 1 to arr1.l1 do
        for j := 1 to arr1.l2 do
            Result.mass[i, j] := arr1.mass[i, j] + arr2.mass[i, j];
    Result.l1 := arr1.l1; Result.l2 := arr1.l2;
    SumMass := Result;
end;
 
begin
    Randomize;
    InitMass(a); PrintMass(a);
    InitMass(b); PrintMass(b);
    PrintMass(TranspMass(a)); //транспонируем
    PrintMass(MultMass(a, b)); //перемножение A*B
    PrintMass(SumMass(SumMass(MultMass(a, b), MultMass(a, b)), SumMass(MultMass(b, a), MultMass(b, a)))); //вычисление матрицы M
end.