[PASCAL] pourquoi ça donne des zeros??

Bonjour,
j'ai probleme avec mon code pascal
le probleme : l'affichage des resultas donne des zeros
je veux savoir le probleme
voici mon code:

program ex7;
uses wincrt;
type tab=array [0..100] of longint;
var x,y,z:longint; T1,T2:tab;
i,n:integer;

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;var x,y,z:longint);
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]:= ((sqr(x))+(sqr(y))+sqr(z));

end;
end;

procedure afficher(T1,T2:tab;n:integer);
begin
for i:=1 to n do
begin
write ('T1[',i,']=',T1[i]);
write (' ');
writeln('T2[',i,']=',T2[i]);
end;
end;

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

merci d'avance
j'att vos reponses.