pascal 编程： 求1~N的素数 N<=1000000，请教

老师们，我做题，求1~N的素数 N<=1000000，总是超时，要求2秒内完成， 我的程式是以下：
var i,n,x:longint;
begin
    readln(n);
    for i:=2 to n do
    begin
        x:=2;
        while (x<=trunc(sqrt(i)))and(i mod x<>0)do
            inc(x);
        if x>trunc(sqrt(i)) then write(i,' ');
    end;
end.
请教教我应用什么算法？