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

const nn=40; amn=1; amx=15; k=3;
var
  a: array [1..nn] of Integer;
  c: array [amn..amx] of Integer;
  i, j, n: Integer;
begin
  Randomize; n:=nn; {j:=0;}
  for i:=1 to n do a[i]:=amn+Random(amx-amn+1);
  Write('A ='); for i:=1 to n do Write(' ',a[i]); WriteLn;
  for i:=1 to n do Inc(c[a[i]]);
  for i:=1 to n do if c[a[i]]>=k then begin
    Inc(j); a[j]:=a[i];
  end; n:=j;
  Write('A''='); for i:=1 to n do Write(' ',a[i]); WriteLn;
  Write('Нажмите Enter...'); ReadLn;
end.

const nn=40; amn=1; amx=15; kk=3;
var
  a: array [1..nn] of Integer;
  i, j, k, n, p: Integer;
begin
  Randomize; n:=nn; {j:=0;}
  for i:=1 to n do a[i]:=amn+Random(amx-amn+1);
  Write('A ='); for i:=1 to n do Write(' ',a[i]); WriteLn;
  for i:=1 to n do begin
    k:=1;
    p:=1; while (p<i) and (k<kk) do begin Inc(k,Ord(a[i]=a[p])); Inc(p); end;
    p:=n; while (p>i) and (k<kk) do begin Inc(k,Ord(a[i]=a[p])); Dec(p); end;
    if k>=kk then begin
      Inc(j); a[j]:=a[i];
    end;
  end; n:=j;
  Write('A''='); for i:=1 to n do Write(' ',a[i]); WriteLn;
  Write('Нажмите Enter...'); ReadLn;
end.

const nn=10; kk=3;
  a: array [1..nn] of Integer = (1,1,1,1,2,3,3,3,4,4);
var
  i, j, k, n: Integer;
begin
  Randomize; n:=nn; {j:=0;}
  Write('A ='); for i:=1 to n do Write(' ',a[i]); WriteLn;
  i:=1; j:=1;
  while i<=n do begin
    k:=i+1; while (k<=n) and (a[k]=a[i]) do Inc(k);
    if k-i<kk then i:=k
    else while i<k do begin
      a[j]:=a[i]; Inc(j); Inc(i);
    end;
  end; n:=j-1;
  Write('A''='); for i:=1 to n do Write(' ',a[i]); WriteLn;
  Write('Нажмите Enter...'); ReadLn;
end.