Pascal Bumpmapping - Pure pascal procedure and tutorial

I would like to know how you do bumpmapping in pure pascal...i need a simple
explanation for this...no asm please? (320X200 mode)