Miért nem működik? Azt szeretném, hogy az n bekért számig írja ki a prím számokat, de valamiért az elsőig irja csak.

program Project36primszam;

{$APPTYPE CONSOLE}

uses

SysUtils;

var szam, oszto, n,i:integer;

kilep: boolean ;

begin

Writeln('Meddig írjam ki a prímszámokat');Readln(n);

i:=1;

szam:=1;

Repeat

kilep:=false;

oszto:=2;

While (not kilep) and (oszto<=szam div 2) Do if szam mod oszto=0 then kilep:=true else Inc(oszto);

if kilep=false then

begin

Write (' ',szam);

Writeln;

Inc(i)

end;

Inc(szam);

Until i<n;

Readln;

end.