var
  DataString: string;
begin
  DataString := 'Substring removing';

  //Delete works in place, 1-based
  Delete(DataString, 10, 9);
  //DataString is 'Substring'
  WriteLn(DataString);

  Delete(DataString, 1, 3);
  //DataString is 'string'
  WriteLn(DataString);
end.