Решето Эратосфена для нахождения простых чисел

В последовательности чисел 2,3, ... , n последовательно вычеркиваем каждое второе число после 2. Первое незачеркнутое число простое (3). Далее вычеркиваем каждое третье число после 3. Первое незачеркнутое число простое (5). Затем вычеркиваем каждое пятое число после 5 и т.д. до тех пор, пока не дойдем до числа, большего корня из n (известно, что если целое положительное число n неравное 1 не делится ни на одно положительное простое число, не большее корня из n то оно простое). Все числа, которые остаются, простые. Такой метод нахождения простых чисел называется решетом Эратосфена.

Процедура заполняет массив P простыми числами меньшими n, элемент массива является последним, если следующий за ним элемент равен 0.

Моя реализация алгоритма на Паскале:

const N=10; //вместо 10 запишите число - верхнюю границу поиска

var
a : array [1..N] of boolean;
x,y : integer;

begin
a[1] := false;
for x:=2 to N do a[x] := true;

for x:= 2 to N div 2 do
for y:= 2 to N div x do
a[x*y] := false;

for x:= 1 to N do
if a[x] then write(x,); //выводим данные в строчку
readln;
end.