Структуры данных, множество. Опции

[gamordzhoba]

дана задача, и она ни фига не получается. help me please.
Реализуйте структуру данных множество для чисел от 0 до 10^8. Множество должно поддерживать операции INSERT(x) (добавить элемент x), FIND(x) (проверить наличие в множестве элемента x) и ERASE(x) (удалить из множества x).

Входные данные
В первой строке записано целое N (1 <= N <= 10^6) -- количество операций. Далее записаны сами операции парами чисел P, x (P обозначает номер операции). P = 0 для INSERT(x), P = 1 для FIND(x), P = 2 для ERASE(x).

Выходные данные
Для каждой операции FIND(x) выводите TRUE если элемент найден и FALSE в противном случае.

Пример

Ввод

8
0 0
0 3
1 1
0 1
1 1
1 0
2 0
1 0


Вывод

FALSE
TRUE
TRUE
FALSE

[gamordzhoba]

Помогите дореализовать программу.

текст:

program big_set;
type BigSet = array[0..12499999]of byte;
var BSet : BigSet;
    x,n,i,k : integer;

procedure AddElement(x : integer);
begin
   BSet[x div 8] := (BSet[x div 8]) or (1 shl (x mod 8));
end;

procedure RemoveElement(x : integer);
begin
   BSet[x div 8] := (BSet[x div 8]) and not (1 shl (x mod 8));
end;

function FindElement(x : integer) : boolean;
begin
   FindElement := boolean((BSet[x div 8]) and (1 shl (x mod 8)));
end;

begin
   assign(input,'ga.in');
   reset(input);
   fillchar(BSet,sizeof(BSet),0);
   readln(n);
   for i := 1 to n do
      begin
         readln(k,x);
         case k of
          0 :AddElement(x);
          1 :writeln(FindElement(x));
          2 :RemoveElement(x);
         end;
      end;
end.