用某种高级程序设计语言实现文法的等价压缩算法(PASCAL语言实现)