simple snakes game written in object pascal