flag这个变量是在哪个单元中定义的?
而且用exit去终止程序的运行,不是很适合,用terminate or halt吧