procedure exit(const X: TAnyType)