Small PT in Pascal

I wrote a Pascal version smallPT for my Programming assignment and for fun.
It can run GI in 126 lines.
This work is derived from SmallPt, see reference for detail.

image

compacted code:

Reference

http://www.kevinbeason.com/smallpt/