Процедура транспонирования двух разных матриц

var A,C,B,D:matrix;
f1,f2:text;
i,j:integer;
procedure trans(n,m: integer);
var i,j:integer;
begin
for i:=1 to m do
for j:=1 to n do
B[i,j]:=A[i,j];
end;
begin
assign(f2, 'C:\03-111\in.txt');
reset(f2);
for i:=1 to n do
for j:=1 to n do
read (f2, A[i,j]);
close(f2);
assign(f1, 'C:\03-111\out.txt');
rewrite(f1);
for i:=1 to n do
for j:=1 to n do
write(f1, ' ',  B[i,j]:3:1);
writeln(f1);
close(f1);
end.

uses crt;
type Tmatr=array[1..20,1..20] of real;{тип матрицы}
procedure Vvod(var f:text;var x,y:byte; var mt:Tmatr);
{ввод данных из файла, файл, размеры,. матрица}
var i,j:byte;
    s:string;
begin
read(f,x);{читаем первое целое число в первой строке}
read(f,y);{читаем второе целое число в первой строке}
readln(f,s);{читаем строку и пропускаем}
for i:=1 to x do
  begin
    for j:=1 to y do
      begin
       read (f,mt[i,j]);{читаем остальные числа-матрицу}
       write(mt[i,j]:6:2);{выводим на экран}
      end;
    writeln;
  end;
close(f);{закрываем файл}
end;
procedure Vyvod(var f:text;y,x:byte; var mt:Tmatr);{вывод на экран и в файл транспонированной}
var i,j:byte;
begin
for i:=1 to y do
  begin
    for j:=1 to x do
      begin
       write(f,mt[i,j]:6:2);{в файл}
       write(mt[i,j]:6:2);{на экран}
      end;
    writeln(f,'');{на новую строку в файле}
    writeln;
  end;
close(f);
end;
procedure trans(x,y:byte;mt:Tmatr; var mt1:Tmatr);{транспонирование}
var i,j:byte;
begin
for i:=1 to x do
for j:=1 to y do
mt1[j,i]:=mt[i,j];{меняем местами во второц матрице столбцы и строки(не квадратная матрица)}
end;
 
var A,C,B,D:Tmatr;{матрицы}
    na,ma,nc,mc:byte;{их размеры}
    f1,f2,g1,g2:text;{входные и выходные файлы}
begin
clrscr;
assign(f1, 'C:\03-111\in1.txt');
reset(f1);
writeln('Ishodnaya matrica A:');
Vvod(f1,na,ma,a);{ввод}
trans(na,ma,a,b);{транспонирование}
assign(f2, 'C:\03-111\out1.txt');
rewrite(f2);
writeln('Transponirovannaya matrica B=At:');{вывод на экран и в файл}
writeln(f2,'Transponirovannaya matrica B=At:');
Vyvod(f2,ma,na,b);{строки и столбцы поменяли}
readln;
assign(g1, 'C:\03-111\in2.txt');
reset(g1);
writeln('Ishodnaya matrica C:');{то же для другой матрицы}
Vvod(g1,nc,mc,c);
trans(nc,mc,c,d);
assign(g2, 'C:\03-111\out2.txt');
rewrite(g2);
writeln('Transponirovannaya matrica D=Ct:');
writeln(g2,'Transponirovannaya matrica D=Ct:');
Vyvod(g2,mc,nc,d);
readln
end.