[turbo pascal] probleme de procedures

Bonjour,
j'ai un probleme
enoncé:
soit un tableau T1 de n elements (1<= n <=100). les elements de T1 sont des entiers naturels de trois chiffres.
on se propose de remplir un tableau T2 de la façon suivante : T2[i] est egal a l'inverse de T1[i].
exemple : si T1[i]=254 alors T2[i]=452
ecrire un programme Pascal qui permet de:
* saisir les elements de T1
* Remplir le tableau T2
* Afficher les elements de T1 et T2 dans deux colonnes.
(en utilisant au minimum 2 procedures)

voici mon programme mais il ne donne pas de resultats:

program ex7;
uses wincrt;
type tab=array [0..100] of longint;
var n,i,x,y,z:integer; T1,T2:tab;
procedure saisirtaille(var n:integer);
begin
repeat
write ('donner la taille du tableau '); readln(n);
until (n in [1..100]);
end;
procedure saisirelements(var T1:tab;n:integer);
begin writeln('donner des entiers à 3 chiffres');
for i:=1 to n do begin
repeat write('T1[',i,']=');readln(T1[i]);
until (T1[i]>=100)and(T1[i]<=999);
end; end;
procedure remplir(var T2:tab;T1:tab;n:integer);
begin for i:= 1 to n do begin
x:= ( T1[i] div 100);
y:= ( (T1[i] mod 100)div 10);
z:= (( T1[i] mod 100) mod 10);
T2[i]:= (z*100)+(y*10)+x;
end; end;
procedure afficher(T1,T2:tab;n:integer);
begin for i:=1 to n do begin
write ('T1[',i,']=',T1[i]);
end; end;

begin
saisirtaille(n);
saisirelements(T1,n);
remplir(T1,T2,n);
afficher(T1,T2,n);
end.

j'att vos aides
s'il vous plait, c'est tres urgent!!!
merci de me repondre.