Pascal/Turbo Pascal - Rotar Matriz

{Mira esto puede servir}

program rotamatriznum;

 uses

   crt;

  const

     n = 3;

     numeros : array[1..n,1..n] of integer = (

     (1,2,3),(4,5,6),(7,8,9));

  type

    matriz = array[1..n,1..n] of integer;

  var

    maz : matriz;

    k, i : integer;

   procedure cargamatriz(var mt : matriz);

   begin

      for i := 1 to n do

        for k := 1 to n do

        begin

        mt[k,i] := numeros[i,k];

        end;

   end;

   procedure rotamatriz(var mm : matriz);

   var

     ll, mb : integer;

     j, t : integer;

   begin

     ll := 1;

     repeat

      j := 1;

      t := 1;

      mb := mm[t,j];

      for j := 1 to n do

      mm[t,j - 1] := mm[t,j];

      for t := 2 to n do

      mm[t - 1,j] := mm[t,j];

      for j := n downto 1 do

      mm[t,j] := mm[t,j - 1];

      for t := n downto 2 do

      mm[t,j] := mm[t - 1,j];

      mm[t,j] := mb;

      ll := ll + 1;

   until ll = 3;

   end;

   begin

       clrscr;

       cargamatriz(maz);

       for i := 1 to n do

       begin

          for k := 1 to n do

          begin

            write('  ',maz[k,i]);

          end;

          writeln;

        end;

        rotamatriz(maz);

        writeln;

      for i := 1 to n do

       begin

        for k := 1 to n do

          begin

            write('  ',maz[k,i]);

          end;

          writeln;

         end;

        readkey;

   end.