Удалить из массива элементы, встречающиеся ровно два раза

program pr;
const max=100;
type
arr=array[1..max] of integer;
var a:arr;
n,i,j,k,g,q:integer;
x:integer;
procedure fill(var v:arr); // процедура заполнения массива
var
i:integer;
begin
for i:=1 to n do
begin
a[i]:=random(10)+1;     // рандомно заполняем массив (диапазон какой надо ставь)
end;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i]:3);
writeln;
writeln;
end;
procedure delete( var v:arr);       // процедура удаления повтор. эл. и вывода массива без них 
var
i,j,k,g,q:integer;
begin
i:=1;
while i<=n do
begin
k:=0;
for j:=i+1 to n do
if a[j]=a[i] then k:=k+1;
if k=1 then
begin
g:=i;
x:=a[i];
while g<=n do
if a[g]=x then
begin
for q:=g to n-1 do
a[q]:=a[q+1];
n:=n-1;
end
else g:=g+1;
end
else i:=i+1;
end;
writeln('Размер массива после сжатия = ' ,n);
writeln('Массив после сжатия:');
for i:=1 to n do
write(a[i]:3);
end;
begin
write('Размер массива n= ');
readln(n);
fill(a);
delete(a);
end.