pascal nested comments example