Найти сумму матриц

{Даны две целые квадратные матрицы C и T порядка n.
Если количество нечетных элементов на обеих диагоналях
матрицы T больше количества таких же элементов в
матрице T больше количества таких же элементов в матрице C,
то найти D=E+T+C, при иных - D=2E+T+3C, где E - единичная матрица порядка n.}
 
const
  n=10;
type
  Matrix=array[1..n,1..n] of integer;
var
  c,t,d,e:Matrix;
  kc,kt,i,j:integer;
 
procedure SumMatrix(N:integer; A,B: matrix; var C: matrix);
var
  i,j: integer;
begin
  for i:=1 to N do
    for j:=1 to N do
      c[i,j]:=a[i,j]+b[i,j];
end;
 
procedure MultMatrixOnValue(N,k:integer; A: matrix; var C: matrix);
var
  i,j: integer;
begin
  for i:=1 to N do
    for j:=1 to N do
      c[i,j]:=a[i,j]*k;
end;
 
begin
  randomize;
  {Создание массивов}
  for i:=1 to n do
    for j:=1 to n do
      begin
        t[i,j]:=random(n)-n div 2;{можно заменить собствеными}
        c[i,j]:=random(n)-n div 2;
        if i=j then
          e[i,j]:=1
        else
          e[i,j]:=0;
      end;
  {Вывод массивов}
  writeln('Массив T:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(t[i,j]:4);
      writeln;
    end;
  writeln('Массив C:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(c[i,j]:4);
      writeln;
    end;
  writeln('Массив E:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(e[i,j]:4);
      writeln;
    end;
 
  {Обработка массивов}
  kt:=0;
  kc:=0;
  for i:=1 to n do
    for j:=1 to n do
      begin
        if (i=j) and (t[i,j] mod 2<>0) then
          inc(kt);
        if (i=n-j+1) and (t[i,j] mod 2<>0) then
          inc(kt);
        if (i=j) and (c[i,j] mod 2<>0) then
          inc(kc);
        if (i=n-j+1) and (c[i,j] mod 2<>0) then
          inc(kc);
      end;
  {Убираем у массивов с нечетным количеством элементов средний}
  if odd (n) then
    begin
      if t[n div 2+1,n div 2+1] mod 2<>0 then
        dec(kt);
      if c[n div 2+1,n div 2+1] mod 2<>0 then
        dec(kc);
    end;
 
  if kt>kc then
    begin
      summatrix(n,e,t,d);
      summatrix(n,d,c,d);
    end
  else
    begin
      MultMatrixOnValue(n,2,e,e);
      MultMatrixOnValue(n,3,c,c);
      summatrix(n,e,c,d);
      summatrix(n,d,t,d);
    end;
  writeln('Массив D:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(d[i,j]:4);
      writeln;
    end;
  readln;
end.