Salut problem pascal devoir dans 1 h

Bonjour,
g fai une programme pour saisir et afficher un tableau mais kan jaffiche il necrit ke des 0 0 0 0 0
g besoi daide sv p


voila mn programme
program 22;
uses wincrt;
type
tab=array[1..100] of integer ;
var
t: tab;
n:integer;
{***************saisie de n************}
procedure saisie_n(var x:integer);
begin
repeat
writeln ('entrez le nbr de case ');
readln (x)
until (x in [1..6]);
end;

{*********saisie de t ***************}

procedure saisie_t(t:tab;n:integer);

var i :integer ;
begin
for i:=1 to n do
begin
write('t[',i,']=');
readln ( t[i]);
end;
end;



{***************affichage de t ***********}

procedure affichage_t(t:tab ; n:integer);
var j:integer;

begin
for j:=1 to n do
write (t[j]);
end;

{************programme principal**************}




begin
saisie_n(n);
saisie_t(t,n);
affichage_t(t,n);
end.