Egyszerű Pascal program; valaki meg tudná nézni, hol hibáztam?

A prímszámokat kell kiíratnom n-ig egy régi könyv folyamatábrája alapján. Jelenleg a prímszámok közé ír pár nem prímet is. Így néz ki most:

begin

write('Melyik termeszetes szamig irjuk ki a primeket? ');

readln(n);

write('2 3 ');

p:=5;

q:=3;

for k:=3 to n do begin

repeat p:=p+2;

until(p/q<>int(p/q)) and (p<=n);

repeat q:=q+2;

until sqr(q)>p;

write(p, ' ');

end;

readln;

end.

Az alapjának ennek kéne maradni, hogy az ábrára hasonlítson. Minden segítséget nagyon köszönök!:)