тип Set(множества)(Pascal)

[fozjka]

Помогите пожалуйста написать программу следующего содержания:

Дано целое n от 2 до 1000. Пользуясь методом "решета Эратосфена",напечатать в убывающем порядке все простые числа из диапазона n..2n.

(Cуть этого метода: выписывая все целые числа, более одного; выбирается первое из них (это 2, простое число) и вычеркиваются все кратные этому числу, кроме него самого же, потом берется следующее из не вычеркнутых чисел (это 3, также простое число) и вычеркиваются все кратные ему, опять же кроме него самого, и так для каждого не вычеркнутых ранее числа. Наконец остаются простые числа начиная с 2.)