TIAUnique2

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;

function RandomRangeEx(aFrom, aTo, amount: Integer; duplicates: Boolean): TIntArray;
begin
  Result := RandomTIAEx(amount, (aTo - aFrom), duplicates);
  OffsetTIA(Result, aFrom);
end;

var
  TIA1, TIA2: TIntArray;
  i, f, s: Integer;

begin
  ClearDebug;
  for i := 0 to 999 do
  begin
    TIA1 := RandomRangeEx(0, 85, 50, True);
    TIA2 := CopyTIA(TIA1);
    TIAUnique2(TIA2);
    case TIAEquals(TIA1, TIA2) of
      True:
      begin
        WriteLn('FAIL: ' + TIAToStr(TIA1) + ' VS. ' + TIAToStr(TIA2));
        Inc(f);
      end;
      False:
      begin
        WriteLn('SUCCESS: ' + TIAToStr(TIA1) + ' VS. ' + TIAToStr(TIA2));
        Inc(s);
      end;
    end;
    Status('Success ' + IntToStr(s) + ' - ' + IntToStr(f) + ' Fail.');
    SetLength(TIA1, 0);
    SetLength(TIA2, 0);
  end;
end.