Найти все простые числа <=N

function prost(x:integer):boolean;
var  y:integer;
     f:boolean;
begin
x:=abs(x);
if x<2 then f:=false{0,1 не простое}
else if x=2 then f:=true{2 простое}
else if x mod 2=0 then f:=false{четные больше 2 не простые}
else
 begin
  f:=true;
  y:=3;
  while(y*y<=x)and f do
  if x mod y=0 then f:=false
  else inc(y,2);
 end;
prost:=f
end;
var n,i,k:integer;
begin
repeat
write('Введите натуральных число n=');
readln(n);
until n>0;
writeln('Простые числа на интервале [1..',n);
k:=0;
for i:=1 to n do
if prost(i) then
 begin
  k:=1;
  write(i,' ');
 end;
if k=0 then write('На данном интервале нет простых чисел')
end.

const n=65535;
var
  p: array [0..7911] of Word;
  pc, pi, i, r: Word;
  prime: Boolean;
begin
  WriteLn('Простые в интервале 1..',n,':');
  {pc:=0;} p[0]:=2; i:=3; Write(2:8);
  while (i<n) and (i>2) do begin
    r:=Trunc(sqrt(i)); prime:=True; pi:=0;
    while prime and (pi<=pc) and (p[pi]<=r) do begin
      if i mod p[pi]=0 then prime:=False;
      Inc(pi);
    end;
    if prime then begin Inc(pc); p[pc]:=i; Write(i:8); end;
    Inc(i,2);
  end; WriteLn;
end.