Janilabo | TSADelete() [Simba]

procedure TSADelete(var TSA: array of string; x: Integer);
var
  i, h: Integer;
begin
  h := High(TSA);
  if (x > h) or (x < 0) then
    Exit;
  for i := x to (h - 1) do
    TSA[i] := TSA[(i + 1)];
  SetLength(TSA, h);
end;

var
  TSA: array of string;

begin
  ClearDebug;
  TSA := ['ID0', 'ID1', 'ID5', 'ID2', 'ID3', 'ID8', 'ID4'];
  TSADelete(TSA, 5);
  TSADelete(TSA, 2);
  WriteLn(ToStr(TSA));
end.