pascal 求助！！！急。在线等！！！

是版本问题
有些版本可以将：
const var procedrue function type……
的顺序随意放置
但有些版本一定要按照：
uses label const type var function procedure
的顺序

可能是要把uses crt;和label换一下位置。
一般来说都把调用单元放在label前面。
还有，最好不要用label，你是要用goto吧？goto经常造成程序的不稳定，而且兼容性也不是很好。
如果你用的是borland pascal或turbo pascal或free pascal的话，应该可以解决这个问题了。

不清楚呀……

我是坚决抵制LABEL和GOTO语句的.
本来一个程序,一个语句,只有一个出口,一个进口.但用GOTO会破坏程序的这种特性,造成程序混乱.
其实完全可以不用这些个语句的.

可能要将系统目录下BGI子目录EGAVGA.BGI和UNITS子目录中的Graph.tpu拷贝到系统目录下BIN目录吧！

=================================

或者把uses crt;和label换一下位置。
http://www.MyDrs.org 下载补丁