Turbo pascal напишите, , программу для считывания из файла квадратной матрицы, и её транспонирования.

Const n=4;
var f:text;
a:array[1..n,1..n] of integer;
i,j,t:integer;
begin
writeln('1:');
assign(f,'my.txt');
reset(f);
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  read(f,a[i,j]);
  write(a[i,j]:3);
  end;
 readln(f);
 writeln;
 end;
close(f);
for i:=1 to n do
 for j:= i+1 to n do
 begin
  t:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=t;
 end;
writeln('2:');
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:3);
 writeln;
 end;
end.

Пример:
Файл my.txt:
23 28 19 23
34 14 8 14
44 20 14 48
38 47 20 41

Результат:
1:
23 28 19 23
34 14  8 14
44 20 14 48
38 47 20 41
2:
23 34 44 38
28 14 20 47
19  8 14 20
 23 14 48 41