Basic Matrix Pascal

program Matrice;
const
MAX = 100;

type matrica = array [1..MAX,1..MAX] of integer;

var
n,m: integer;
a:matrica;

procedure readmatrix(n:integer; m:integer; var a:matrica);
var
i,j:integer;

begin
for i:=1 to n do
    for j:=1 to m do
        read(a[i,j]);

end;
procedure printmatrix(n,m:integer; a:matrica);
var
i,j:integer;

begin
for i:=1 to n do
begin
    for j:=1 to m do
        write(a[i,j],' ');
        writeln(' ');
end;
end;

procedure transpon(var n,m:integer;var a:matrica);
var
i,j,t:integer;
o:matrica;

begin
for i:=1 to n do

    for j:=1 to m do
        o[j,i]:=a[i,j];
     t:=m;
     m:=n;
     n:=t;

   a:=o;



end;

begin
writeln('Uneti broj vrsta i kolona matrice: ' );
read(n,m);
readmatrix(n,m,a);
printmatrix (n,m,a);
transpon(n,m,a);
writeln(' ');
printmatrix (n,m,a);


end.