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