[Sersgant]

Только начал изучать Delphi
Возникла проблема с кодом((
Помогите пожалуйста.
Условие задачи:
Дан целочисленный массив размера N. Удалить из массива все элементы, встречающиеся более двух раз, и вывести размер полученного массива и его содержимого.

Вот мой код

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..99] of integer;
i,j,m,n,z,k,p,l:integer;
begin
p:=0;
N:=strtoint(Edit1.Text);
for i:=1 to n do
 begin
  a[i]:=random(100)-50;
  k:=0;
for j:=1 to n do
 begin
  if a[i]=a[j] then k:=k+1;
  if i=j then k:=k-1;
  if k=2 then
             begin
               for z:=1 to n do
                begin
                 a[i]:=a[n];
                 n:=n-1;
                end;
             end;

  end;
  label1.caption:=label1.caption+IntToStr(a[i])+' ';
end;
for i:=1 to n do
 begin
  p:=p+1;
end;
Edit2.text:=inttostr(p);
end;