На интервале от 1 до 1000 найти всех близнецов и подсчитать количество пар - Turbo Pascal

const n=1000;
var a : array [1..n] of boolean;
    x,y : integer;
begin
a[1] := false;//число 1 не простое
for x:=2 to n do a[x] := true;//пока все считаем простыми
for x:= 2 to round(sqrt(n)) do
for y:= 2 to n div x do //перебираем все возможные произведения
a[x*y] := false;//это составное, вычеркиваем его
//из того что осталось выбираем пары близнецов
for x:=1 to n-2 do
if a[x]and a[x+2] then write(x,' ',x+2,'   ');
end.