Decimale vers hexadicimale

Bonjour,
On veut ecrire un algorithme intitulé Conversion qui permet de:
*Remplir un tableau T1 par n nombres décimaux(base10).
*Réalise la conversion du contenu du tableau T de la base décimale vers la base hexadécimale
dans un deuxiéme tableaux T2.
*Transférer les nombres dont la representation hexadécimale est composée seulement
de chiffres vers un tableau T3.
*transférer le reste des nombres hexadécimaux vers un tableaux T4
afficher les élements de T3 et t4.

voila mon essai:
program Conversion;
uses wincrt;
type tab= array[1..100]of integer;
var
n:integer;
t1,t2,t3,t4,t:tab;

procedure remplir (var n:integer;t1:tab);
var i:integer;
begin
repeat
writeln ('donner n');
readln (n);
until n in [5..20];
for i:=1 to n do
begin
writeln ('donner l"element N°',i);
readln (t[i]);
end;
end;

procedure convertir(t1,t2:tab);
var
c,i:integer;
t:tab;
begin
c:=0;
repeat
c:=c+1;
t[c]:=t1[i] mod 16;
t1[i]:=t1[i] div 16;
until n=0;
for i:=c to 1 do
t2[i]:=t1[i];

end;

procedure transferer(var n:integer;t2,t3,t4:tab);
var
i:integer;
begin
for i:=n to 1 do
if t2[i] in [0..9] then t3[i]:=t2[i]
else
t4[i]:=t2[i];
end;

procedure afficher(n:integer;t3,t4:tab);
var i:integer;
begin
writeln('les elements de t3 sont ');
for i:=n to n do
begin
write(t3[i],' ');
end;
writeln ('les elements de t4 sont');
for i:=1 to n do
begin
write(t4[i]);
end;
end;

begin
remplir(n,t1);
convertir(t1,t2);
transferer(n,t2,t3,t4);
afficher(n,t3,t4);
end.
ET MERCI D'AVANCE