编写一个判断算术表达式中开括号闭括号是否配对的算法

'下面是易语言的例子。版本 2。程序集 窗口程序集1。程序集变量 表达式, 文本型。子程序 __启动窗口_创建完毕输入框 (“请输入算术表达式”, , , 表达式, )。如果 (表达式括号是否匹配 (表达式))    信息框 (“表达式括号匹配!”, 0, )。否则    信息框 (“表达式括号不匹配!”, 0, )。如果结束。子程序 表达式括号是否匹配, 逻辑型。参数 当前表达式, 文本型。局部变量 变量, 整数型。局部变量 文本, 文本型。局部变量 左括号数, 整数型左括号数 ＝ 0。变量循环首 (1, 取文本长度 (当前表达式), 1, 变量)    文本 ＝ 取文本中间 (当前表达式, 变量, 1)    。如果真 (文本 ＝ “(”)        左括号数 ＝ 左括号数 ＋ 1    。如果真结束    。如果真 (文本 ＝ “)”)        左括号数 ＝ 左括号数 － 1    。如果真结束    。如果真 (左括号数 ＜ 0)        返回 (假)    。如果真结束。变量循环尾 ()。如果真 (左括号数 ≠ 0)    返回 (假)。如果真结束返回 (真)