Si pones un cristal de 4MHz el fuse correcto es XT, olvídate del HS.
Lo ideal sería que pegases el esquema de tu circuito para poder chequearlo. Comprueba que tienes una resistencia de MCLR a Vdd.
Ah, y pega tu código completo, incluyendo el encabezamiento del programa.