program transpoza;
uses crt;
type macierz=array [1..10,1..10] of real;
var
A,AT:macierz;
w,k,N,M:integer;
procedure czytaj (var N,M:integer; var T:macierz);
var w,k:integer;
begin
for w:=1 to N do
for k:=1 to M do
begin
write('T[',w:2,',',k:2,']=');
readln(T[w,k]);
end;
end;
{koniec czytaj}
procedure druk(var N,M:integer; var T:macierz);
var w,k:integer;
begin
writeln('macierz transponowana');
for w:=1 to N do
begin
for k:=1 to M do
write (T[w,k]:5:1);
writeln;
end;
end;
{koniec druk}
begin
clrscr;
writeln('podaj wymiary macierzy');
readln(N,M);
czytaj(N,M,A);
for w:=1 to N do
for k:=1 to M do
begin
AT[k,w]:=A[w,k]
end;
druk(M,N,AT);
readln
end.