Relative fluxes of shock and prompt peaks in SEP event time profiles