procedure Delete( var S: string; const Index: Integer; const Count: Integer );procedure Delete( var A: DynArrayType; const Index: Integer; const Count: Integer );