You delete content of entire FLASH memory when you erase FLASH before programming PIC.
Try this:

DEFINE OSC 24

X var byte
Y var word
Value var byte

Pause 4000