Matematické Fórum

ahoj, chtěl bych vás poprosti o radu.
mám matici n x n a mám napsat program na otoceni matice o 90 stupnu...
umim udelat transponovanou matici, tam se prohodi radky za sloupce, ale nevim jak otocit matici o 90 stupnu doprava?
Děkuji za rady :)

var
  Application: TMyApplication;
  i,j:integer;
  mat1:array[1..10,1..10] of integer;
  mat2:array[1..10,1..10] of integer;
begin
      writeln('Matice');
  randomize;
  for i:=1 to 10 do begin
    for j:=1 to 10 do
    mat1[i,j]:=random(10);//nahodna cisla z intervalu(0-9)
  end;
      for i:=1 to 10 do begin
        for j:=1 to 10 do
            write(mat1[i,j]:3);
            writeln;
      end;
      for i:=1 to 10 do begin
        for j:=1 to 10 do
            mat2[i,j]:=mat1[j,i];
              end;
      writeln;
      writeln('****-transponovana matice-****');
      for i:=1 to 10 do begin
        for j:=1 to 10 do
          write(mat2[i,j]:3);
          writeln;
        end;

      readln;
end.