Поменять местами строки со столбцами в матрице

Program 102;
uses crt;
var
a:array[1..3,1..4] of real;
b:array[1..4,1..3] of real;
i,j:integer;
fr,fw:text;
begin
clrscr;
assign(fr,'D:\10\dan5.pas');
reset(fr);
assign(fw,'  D:\10\res5.pas');
rewrite(fw);
for i:=1 to 3 do
begin
for j:=1 to 4 do
writeln(fw,'isx mas A');
readln(fr,a[i,j]);
end;
for i:=1 to 4 do
for j:=1 to 3 do
b[j,i]:=a[i,j];
for i:=1 to 4 do begin
    for j:=1 to 3 do write(b[i,j]:4);
writeln;
close(fr);
close(fw);
end.

var
  a,b:array[1..100,1..100] of integer;
  i,j,n,m:integer;
begin
  readln(n,m);
  for i:=1 to n do
    for j:=1 to m do
      readln(a[i,j]);
  writeln('Исходный массив:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:4);
      writeln;
    end;
  for j:=1 to n do
    for i:=1 to m do
      b[i,j]:=a[j,i];
  writeln('Измененный массив:');
  for i:=1 to m do
    begin
      for j:=1 to n do
        write(b[i,j]:4);
      writeln;
    end;
  readln
end.

Assign(input,'input');//Имя файла поменять на свое
Assign(output,'output');//Имя файла поменять на свое
Reset(input);
Rewrite(output);