girar 1 matriz 90º em pascal

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: