TIAUnique [SCAR Divi]

procedure TIAUnique2(var TIA: TIntArray);
var
  h, i2, i, d: Integer;
begin
  h := High(TIA);
  if (h > 0) then
  for i := (h - d) downto 1 do
    for i2 := (i - 1) downto 0 do
      if (TIA[i] = TIA[i2]) then
      begin
        Delete(TIA, i, 1);
        Inc(d);
        Break;
      end;
end;

var
  TIA: TIntArray;
  e, i: Integer;

begin
  ClearDebug;
  e := 0;
  for i := 0 to 5000 do
  try
    TIA := [i, 10];
    TIAUnique2(TIA);
  except
    Inc(e);
  finally
    SetLength(TIA, 0);
  end;
  WriteLn('TIAUnique2() - ' + IntToStr(e) + ' error(s)');
  e := 0;
  for i := 0 to 5000 do
  try
    TIA := [i, 10];
    TIAUnique(TIA);
  except
    Inc(e);
  finally
    SetLength(TIA, 0);
  end;
  WriteLn('TIAUnique() - ' + IntToStr(e) + ' error(s)');
end.