function StripComments(s : String) : String;
begin
   var p := FindDelimiter('#;', s);
   if p>0 then
      Result := Trim(Copy(s, 1, p-1))
   else Result := Trim(s);
end;

PrintLn(StripComments('apples, pears # and bananas'));
PrintLn(StripComments('apples, pears ; and bananas'));