Janilabo | TSAUnique() [SCAR Divi]

{==============================================================================]
  Explanation: Removes all duplicates from TSA.
[==============================================================================}
procedure TSAUnique(var TSA: TStrArray);
var
  h, i2, i, d: Integer;
begin
  h := High(TSA);
  if (h > 0) then
  for i := (h - d) downto 1 do
    for i2 := (i - 1) downto 0 do
      if (TSA[i] = TSA[i2]) then
      begin
        Delete(TSA, i, 1);
        Inc(d);
        Break;
      end;
end;

var
  tmp: TStrArray;
  h, i: Integer;

begin
  tmp := ['a', 'b', 'a', 'b', 'c', 'a', 'b', 'c', 'd'];
  TSAUnique(tmp);
  h := High(tmp);
  for i := 0 to h do
    WriteLn(tmp[i]);
end.