program Project2;
type
  matice = array [1..10,1..10] of integer;
var
  i,j,m,n:integer;
  a,b:matice;
procedure nacti(r,s:integer; var mat:matice);
begin
  writeln('Zadej prvky matice:');
  for i:=1 to r do
    for j:=1 to s do
      readln(mat[i,j]);
end;
procedure uprav(r,s:integer;mat:matice;var mat_tr:matice);
begin
  for i:=1 to r do
    for j:=1 to s do
      mat_tr[i,j]:=mat[j,i];
end;
procedure vypis(r,s:integer; var mat:matice);
begin
  for i:=1 to r do
  begin
    writeln;
    for j:=1 to s do
      write(mat[i,j]:4);
  end;
end;
begin
  writeln('Zadej rozmer matice:');
  readln(m,n);
  nacti(m,n,a);
  uprav(m,n,a,b);
  vypis(m,n,a);
  writeln;
  vypis(m,n,b);
  readln;
end.