Did you and your doctor ruled out Tuberculosis and other causes of hemoptysis (blood in cough)?
If you are not improving there may be few possibilities for non resolving pneumonia like wrong diagnosis, resistant bug, non infective causes etc.
Next Steps
You have to be worked up throughly and there may be need to do a diagnostic bronchoscopy.
Health Tips
You may consult me at my clinic if you want.