Pascal Nombre Premier

Bonjour!(ou bonsoir!!)
Ca fait une heure que je galére sur Pascal,j'essaie d'écrire une procedure qui permet de trouver tout les nombres premiers entre 1 et 100 et de les classer dans un tableau. voila mon essai, mais ca ne marche pas ! Pouvez vous m'aider a trouver ce qui cloche??
procedure premier;
var i,j,r,n:integer;T:TAB;
begin
n:=0;
for i:=1 to 100 do
begin
for j:=1 to i do
begin
r:=0;
if (i mod j = 0) then r:=r+1;
if r=2 then T[n]:=i;
end;
end;
writeln(T[n]);
end;