Все простые числа да заданного м числа(включительно)

Program Test;
Var
  N,n1,tst,i,count:integer;
Begin
  readln(N);
  while n1<N do begin
    n1:=n1+1;
    count:=0;
    for i:=1 to n1 do begin
          if n1 mod i = 0 then inc(count);
        end;
    if n1>1 then if  count=2 then writeln(n1);
  end;
End.