Составьте программу в паскале по теме двумерные массивы.
Задача: Даны две матрицы А(nxn) и С(nxn).Написать программу вычисления матрицы С^Т(А+А) где С^Т транспонируемая матрица.Помогите пожалуйста.

В конце вот чуть-чуть не поняла, почему там финальная уже матрица ma(i j)=2*c(i j)*a(i j), и потом там по свойству дистрибутивности С(А+А)=С*А+СА="*С*А

var a:array of array of integer;c:array of array of integer;ma:array of array of integer;i,j,n:integer;begin;randomize;readln(n);setlength(a,n+1); //задаём размерность динамических массивовsetlength(c,n+1);setlength(ma,n+1);for i:=1 to n dobegin;setlength(a[i],n+1);setlength(c[i],n+1);setlength(ma[i],n+1);end;writeln('Matrix A:');   //генерируем массив псеводслучайных чиселfor i:=1 to n do begin; writeln;  for j:=1 to n do   begin;    a[i,j]:=random(10);    write(a[i,j]:4);   end; end;writeln;writeln('Matrix C:'); //аналогичноfor i:=1 to n do begin; writeln;  for j:=1 to n do   begin;    c[i,j]:=random(10);    write(c[i,j]:4);   end; end;for i:=1 to n do     //сохраняем матрицу C для транспонации  for j:=1 to n do    ma[i,j]:=c[i,j];    writeln;writeln('Transpose matrix C:'); //транспонируем Cfor i:=1 to n do begin;  writeln;   for j:=1 to n do    begin;     c[i,j]:=ma[j,i];     write(c[i,j]:4);    end; end;writeln;writeln('Final matrix:'); // получаем финальную матрицуfor i:=1 to n do begin;  writeln;   for j:=1 to n do    begin;     ma[i,j]:=2*c[i,j]*a[i,j];{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}     write(ma[i,j]:4);    end; end;end.