pascal: added selftype example