Сложить матрицы+единичная матрица

uses crt;
const n=5 ; {максимальный порядок матрицы}
type
matrix=array[1..n,1..n] of real;
var
row : integer; {Ïîðÿäîê ìàòðèö}
c,t : matrix; {Èñõîäíûå ìàòðèöû}
h : matrix; {Ðåçóëüòèðóþùàÿ ìàòðèöà}
r,tt : matrix; {Ðàáî÷èå ìàòðèöû}
i,j : integer;
p:real;
kc,kt : integer;
s : string;
 
//ввод матрицы
procedure input( var a:matrix; m:integer);
var
i,j:integer;
begin
clrscr;
writeln('введите размерность матриц: ',m);
writeln('(ввод каждого элемента завершайте нажатием EnteR)');
for i:=1 to m do
begin
gotoxy(1,i+2); write('строка ',i);
for j:=1 to m do
begin
gotoxy(j*6+8,i+2); readln(a[i,j])
end;
end ;
end;
 
//произведение элементов побочной диагонали
function proiz(a:matrix; m:integer):integer;
var
i,j : integer;
begin
writeln;
p:=1;
for i:=1 to m do
for j:=1 to m do
if i+j=m+1 then
begin
p:=p*a[i,j];
end;
end;
 
//вывод матрицы
procedure print( a:matrix; m:integer);
var
i,j:integer;
begin
for i:=1 to m do
begin
for j:=1 to m do
write(a[i,j]:8:2);
writeln
end;
end ;
begin
 
//главный модуль
clrscr;
{ввод порядка матриц с контролем}
repeat
write('введите размерность матриц: '); readln(row);
until (row>0)and(row<=n);
input (c,row);
input (t,row);
writeln(' матрица С:') ;
print(C,row);
kc:= PROIZ(c,row);
 writeln('произведение побочной диагонали матрицы C = ', p) ;
 writeln(' матрица T:') ;
print(T,row);
kt:= PROIZ(t,row);
 writeln('произведение побочной диагонали матрицы T = ', p) ;
end.