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.