Miért nem írja ki a prímszámokat?

1-től 10-ig szeretném kiíratni, programom a következő:

program primsz2;

uses crt;

var prim:boolean;

i,j:integer;

begin

clrscr;

j:=1; i:=2;

for j:=1 to 10 do

begin

for i:=2 to trunc(sqrt(j)) do

begin

if (j mod i=0) then begin

prim:=false;

end;

end;

if prim then begin

writeln(j);

end;

end;

readln;

end.

Mi lehet a gond?