free pascal. Низкоуровневое управление множествами средствами прямого доступа к оперативной памяти

[Решетова Алена]

Разработать структуру для хранения множеств произвольного размера (от 1 элемента до high(dword) элементов). Обязательное требование к структуре: элементы множества должны быть расположены максимально плотно в оперативной памяти (по 1 биту на элемент, по 8 элементов на байт). Разработать функции обработки таких множеств.

{ тип для множества - указатель на разработанную структуру }
type SuperSet=pointer;

{ создает множество, выделяя для него оперативную память в соотвествии с переданным
максимально возможным количеством элементов maxCount }
function createSet(maxCount : dword):SuperSet;

{ уничтожает множество, освобождая выделенную для него оперативную память }
procedure destroySet(sset:SuperSet);

{ возвращает копию переданного множества }
function copySet(sset:SuperSet):SuperSet;

Помогите, пожалуйста. Хотя бы идею самой структуры подкиньте. А то я вообще пас(((
Язык free pascal

[Slym]

Идея тут Delphi7.Classes.TBits

[Решетова Алена]

Спасибо, я нашла)