Даны матрицы А(5, 5) и В(5, 5). Напечатать матрицу Ат+Вт. Транспонирование матрицы оформить процедурой

program t;
uses crt;
 
type mas=array [1..5,1..5] of integer;
var a,b,c:mas; n,i,j:integer;
procedure Vvod(var e:mas; n:integer);
var i,j:integer;
begin
 begin
  for i:=1 to n do
  for j:=1 to n do
   begin
   e[i,j]:=random(10);
   e[i,j]:=e[i,j]-5;
   end;
 end;
end;
procedure Vyvod(var e:mas;n:integer);
var i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
  write(e[i,j]:5);
  writeln;
 end;
end;
procedure Trans(var e:mas;n:integer);
var y:integer;
    i,j:integer;
begin
for i:=1 to n do
for j:=1 to i do
 begin
  y:=e[i,j];
  e[i,j]:=e[j,i];
  e[j,i]:=y;
 end;
end;
 
procedure aaa(var e:mas; n:integer);
var i,j:integer;
begin
Vvod(e,5);
writeln('matrix ');
Vyvod(e,5);
Trans(e,5);
writeln('new matrix ');
Vyvod(e,5);
end;
 
 
begin
clrscr; randomize;
aaa(a,5);
aaa(b,5);
for i:=1 to n do
 for j:=1 to n do
 c[i,j]:=a[j,i]+b[j,i];
writeln('manrix c');
Vyvod(c,5);
readln;
end.

program t;
uses crt;
const n=5;
type mas=array [1..n,1..n] of integer;
procedure Vvod(var e:mas);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
e[i,j]:=random(10);
end;
procedure Vyvod(var e:mas;s:string);
var i,j:integer;
begin
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(e[i,j]:3);
  writeln;
 end;
end;
procedure Trans(var e:mas);
var i,j,y:integer;
begin
for i:=2 to n do
for j:=1 to i-1 do
 begin
  y:=e[i,j];
  e[i,j]:=e[j,i];
  e[j,i]:=y;
 end;
end;
 
procedure Summa(e,f:mas;var g:mas);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
g[i,j]:=e[i,j]+f[i,j]
end;
 
var a,b,c:mas;
    i,j:integer;
begin
clrscr;
randomize;
Vvod(a);
Vvod(b);
Vyvod(a,'Исходная матрица A:');
Trans(a);
Vyvod(a,'Транспонированная матрица A:');
write('Нажмите Enter');
readln;
Vyvod(b,'Исходная матрица B:');
Trans(b);
Vyvod(b,'Транспонированная матрица B:');
Summa(a,b,c);
Vyvod(c,'C=At+Bt');
readln;
end.