佩服楼主的愚公精神，所以免费为你再答一题（本来打算凡是你的题目就不答了）。解决了问题不给分，是不仗义的。

type
  TArr = array of integer;
var
  Arr : TArr;

procedure NotExistsThenInsert(var AArr: TArr; V: integer);
var
  Idx : integer;
  Existed : boolean;
begin
  Existed := False;
  for Idx := Low(AArr) to High(AArr) do
    if AArr[Idx] = V then begin
      Existed := True;
      Break;
    end;
  if Not Existed then begin
    SetLength(AArr, Length(AArr)+1);
    AArr[High(AArr)] := V;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject); ////测试
var
  Idx : integer;
begin
  NotExistsThenInsert(Arr, StrtoInt(Edit1.Text));
  for Idx := Low(Arr) to High(Arr) do
    Showmessage(InttoStr(Arr[Idx]));
end;