Даны две целые квадратные матрицы C и T порядка n

uses crt;
const nmax=20;{макс. размер матриц}
type mas=array[1..nmax,1..nmax] of integer;{тип матриц}
Procedure Vvod(k:byte;var x:mas);{ввод элементов матриц}
var i,j:integer;
Begin
for i:=1 to k do
for j:=1 to k do
x[i,j]:=random(10);{псевдослучайные от 0 до 9, можно ручной ввод, мне лень}
end;
Procedure Vyvod(k:byte;var x:mas);{вывод матрицы на экран}
var i,j:integer;
begin
for i:=1 to k do
  begin
    for j:=1 to k do
    write(x[i,j]:4);
    writeln;
  end;
end;
function KolNech(k:byte;x:mas):byte;{функция подсчета нечетных на диагоналях}
var i,j,nch:byte;
begin
nch:=0;
for i:=1 to k do
for j:=1 to k do
if ((i=j)or(j=k-i+1))and odd(x[i,j]){если на главной или побочной диагонали и нечетное}
then inc(nch);{считаем}
KolNech:=nch;
end;
procedure SummMatr(k:byte;x,y:mas; var z:mas;s,t:integer);
{сложение матриц, параметр s-коэффициент при единичной матрице, t- при матрице С}
var i,j:integer;
begin
for i:=1 to k do
for j:=1 to k do
if j=i then z[i,j]:=x[i,j]+t*y[i,j]+s{если на главной диагонали, прибавляем 1 или 2}
else z[i,j]:=x[i,j]+t*y[i,j];{если нет, то не прибавляем}
end;
var c,t,d:mas;
    n:integer;
BEGIN
clrscr;
repeat
write('Razmernjst matric=');
readln(n);
until (n>0)and(n<=nmax);
writeln('Matrica C:');
Vvod(n,C);
Vyvod(n,C);
writeln('Matrica T:');
Vvod(n,T);
Vyvod(n,T);
writeln('Kolichestvo nechetnyh na diagonalyah C=',KolNech(n,C));
writeln('Kolichestvo nechetnyh na diagonalyah T=',KolNech(n,T));
if KolNech(n,T)>KolNech(n,C){проверяем условие}
then SummMatr(n,T,C,D,1,1) {выполняем}
else SummMatr(n,T,C,D,2,3);
writeln('Matrica D:');
Vyvod(n,D);
readln
end.