Сложение матриц и транспонирование результата

const
   n = 4;
 
var
   f: text;
   a, b, c: array [1..n, 1..n] of integer;
   i, j, k, l, sum: integer;
 
begin
   sum := 0;
   k := 1;
   assign(f, '1.txt');
   reset(f);
   writeln('A:');
   for i := 1 to n do
   begin
      for j := 1 to n do
      begin
         read(f, a[i, j]);
         write(a[i, j]:5);
      end;      
      writeln;
   end;
   writeln('B:');
   for i := 1 to n do
   begin
      for j := 1 to n do
      begin
         read(f, b[i, j]);
         write(b[i, j]:5);
      end;      
      writeln;
   end;
   close(f);
   writeln('C:');
   for i := 1 to n do
   begin
      for j := 1 to n do
      begin
         for l := 1 to n do
         begin
            sum := sum + (a[i, l] * b[k, j]);
            inc(k);
         end;
         c[i, j] := sum;
         write(c[i, j]:5);
         sum := 0;
         k := 1;
      end;
      writeln;
   end;
   writeln('CT:');
   for i := 1 to n do
   begin
      for j := 1 to n do
      begin
         write(c[j, i]:5);
      end;      
      writeln;
   end;
end.

const n=4;
var f:text;
    a,b,c:array[1..n,1..n] of integer;
    i,j,x:integer;
begin
assign(f,'1.txt');
reset(f);
for i:=1 to n do
for j:=1 to n do
read(f,a[i,j]);
for i:=1 to n do
for j:=1 to n do
read(f,b[i,j]);
close(f);
assign(f,'2.txt');
rewrite(f);
writeln(f,'Матрица C=A+B');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    c[i,j]:=a[i,j]+b[i,j];
    write(f,c[i,j]:4);
   end;
  writeln(f);
 end;
writeln(f,'Транспонированная матрица С');
for i:=2 to n do
for j:=1 to i-1 do
 begin
  x:=c[i,j];
  c[i,j]:=c[j,i];
  c[j,i]:=x;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(f,c[i,j]:4);
  writeln(f);
 end;
close(f);
write('Результат записан в файл 2.txt')
end.