Удаление повторяющихся чисел в массиве - pascal abc удалить в массиве все числа которые повторяются более двух раз

Var  n, i, a, q: integer;  x: array[-30000..30000] of boolean;
begin  q := 0;  write('n=');  readln(n);  for i := 1 to n do  begin    read(a);    x[a] := true;  end;  write('Ваш массив без повторяющийхя элементов ');   for i := -30000 to 30000 do     if x[i] then begin      write(i, ' ');      inc(q);    end;  writeln;  writeln('Кол-во элементов в новом массиве=', q);end.