Удаление повторяющихся чисел в массиве - 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.