function RemoveComments(s,delim: string): string
:= Regex.Replace(s, delim + '.+', '');
begin
Writeln(RemoveComments('apples, pears # and bananas','#'));
Writeln(RemoveComments('apples, pears ; and bananas',';'));
end.