girar 1 matriz 90º em pascal

[Cicno 0]

To fazendo um exercício que tem que girar a matriz 90º mas na hora que ela imprime só aparece 0s.

O código ta ai nem sei se ele está certo por favor apontem o erro.

program ex_matriz;
uses crt;

var

Original  :  array [1..3,1..3] of integer;
Noventa   :  array [1..3,1..3] of integer;

i,j,h,l,var1  :  integer;

procedure inserir;
begin
 for i:=1 to 3 do
   for j:=1 to 3 do
   begin
     writeln('Escreva o numero da linha ',i,' e coluna ',j,' da matriz');
     readln(Original[i,j]);
   end;
end;

procedure girar;
begin
 for i:=1 to 3 do
 begin
   for j:=1 to 3 do
 end;
   begin
    clrscr;
    noventa[i,j]:=original[h,l];
 h:=h-1;
 l:=l-1; 
   end; 
end;

procedure imprime;
begin
 for i:=1 to 3 do
   for j:=1 to 3 do
   begin
     write(noventa[i,j],' ');
   end;
end;


begin
 j:=0;
 i:=0;
 inserir;
 h:=3;
 l:=3;
 girar;
 imprime;
 readkey;
end.

vlw adiantado pra quem conseguir me ajudar.

 

ps: a var 1 ta ai não sei pq... ela não serve pra nada :huh:

[quitZAUMMM 18]

foi você q fez?

ou pego da net e qr q achemos o problema?

 

[]s