Модуль для работы с множествами Опции

[*alt]

Реализовать Модуль для работы с множествами целых чисел, число элементов в котором больше, чем 256. Модуль должен содержать процедуры инициализации множества, включения, исключения элемента, проверки принадлежности элемента множеству; объединения, пересечения и разности множеств. Написать программу, иллюстрирующую работу данного модуля/
Множество должно удовлетворять

const
  maxDigit = 10000;
  ArraySize = maxDigit div (high (byte) + 1);
type
  TSet = set of byte;
  PSet = ^TSet;
  TBigSet = array [0..ArraySize] of PSet;

[volvo]

Ты бы нормально вопрос ставил, глядишь ,и ответили бы тебе... Что значит "с таким описанием дописать"? Реализуй все, что у тебя недореализовано... Что конкретно не получается - спрашивай... А то даешь кусок кода, и зачем он мне? Что, кто-то должен это протестировать? Сорри, но для этого надо ДОПИСАТЬ твой модуль, а если это лень делать тебе - то другим это и подавно не надо...

Есть какие-то конкретные проблемы? Несовместимости типов, отказ компилироваться по непонятной причине - спрашивай... За те почти два месяца, которые прошли с момента предыдущего ответа, уж как минимум сформулировать вопрос нормально можно было...