添加pascal 代码