Program Pembuatan Matriks dan Transposnya

uses wincrt;
Var
m,n,i,j:integer;
x:Array[1..100,1..100] of integer;
begin
clrscr;
write('Baca ukuran baris Matriks:',' ');
readln(m);
write ('Baca ukuran kolom matriks:',' ');
readln(n);
writeln('Matriks anda berukuran',' ',m,'x',n,' ');
for i:=1 to m do
for j:=1 to n do
begin
write('Baca nilai:',' ');
readln (x[i,j]);
end;
writeln;
writeln('Matriksnya:',' ');
for i:=1 to m do
begin
for j:=1 to n do
write(x[i,j]:3);
writeln;
end;
writeln;
writeln('Matriks transposnya:',' ');
for j:=1 to n do
begin
for i:=1 to m do
write(x[i,j]:3);
writeln;
end;
writeln;
writeln('Matriks anda berukuran',' ',n,'x',m,' ');
read;
end.