Transposition de matrice

program symmat;

const N= 10;
type row = array [1 .. N ] of integer;
type sqm = array [1 .. N ] of row;

procedure sym( var M: sqm);
var
   i, j, tmp : integer;
begin

   for i:=1 to N
      do
      for j:=i+1 to N
	 do
      begin
	 tmp := M[i][j];
	 M[i][j] := M[j][i];
	 M[j][i] := tmp;
      end;
end;

procedure display(var M : sqm);
var
   i, j : integer;
begin
   for i:=1 to N
      do
   begin
      for j:=1 to N
	 do
	 write(M[i][j]:6);
      writeln;
   end;
end;

var
   M1      :sqm;
   i,j: integer;
begin

   for i:=1 to N
      do
      for j:=1 to N
	 do
	 M1[i][j] := Random(100);
   display(M1);
   writeln;
   sym(M1);
   display(M1);
end.