在其它应用程序用:private all except p*,而非p_*

是你那句“private all”隐藏了前面用PUBL定义的所有变量，并在“private all”所在的程序段没执行完的情况下又用到了被隐藏的变量。
一、没有private all不会发生错误。
二、private all所在的程序做为子程序，当这个子程序执行完再应用被隐藏的变量也不会发生错误。因为这段程序执行完，用private隐藏的变量就释放了。