Anonymní profil Radulinka – Programujte.com

pokud mozno bez procedur :-)

Ahojky, mám problém s jedním programem, upozorňuji, že jsem uplný začatečník....mám otočit matici o 180stupňů, ale nějak si nevím rady......chtěla bych ji nejspíš otočit 2x o 90stupňů...

program maticee;
const max=10;

var n,x,y:integer;
    matice: array[1..max,1..max] of integer;

//matice+obracena o 90 stupnu

  begin
    write('napiste rozmer matice: ');
    readln(n);
    for x:=1 to n do begin
      for y:=1 to n do begin
        write('zadej radek ',x,' sloupec ',y,'  :  ');
        readln(matice[x,y]);

      end;
    end;
    writeln;
    writeln;
    writeln;
      for x:=1 to n do begin
      for y:=1 to n do begin
        write(matice[x,y],'  ');
      end;
      writeln();
     end;
    writeln;
    writeln;

    for x:=1 to n do begin
    for y:=n downto 1 do

 write (matice[y,x], '  ');

    writeln;

     end;

    writeln;

    readln();
  end.

Jenže ji zvládnu otočit pouze jednou o 90 a dál si nevím rady, poradil by mi někdo?

Popřípadě i jak se dá otočit rovnou o 180 stupnu?

Mockrát děkuji.