关于Delphi6中的if语句

delphi爱好者

在Delphi6中定义一个数组ary中存放十个内容，为‘合格’或者‘不合格’，想实现的功能为:若数组中全部为合格则hege为true，若数组中有一项为不合格，则hege为false，然后退出。我下面的语句对吗，为什么if后面的语句不执行，程序直接跳出呢。
for i:=0 to 9 do
begin
  if ary='合格' then
    hege:=true;
  if ary='不合格' then
  begin
    hege:=false;
    exit;
  end;
end;
问题补充：在for语句上打上断点，按f8执行，如果我的ary数组中全部为‘合格’，则当执行到：if ary='合格' then
这一语句时，也不执行hege:=true;,而是直接执行else语句，也不执行hege:=false;语句，接着循环一遍，以此类推，一直执行九遍，但从未给hege赋值。想实现这一功能该怎样写，急需答案，谢谢各位。

[ 本帖最后由 delphi爱好者 于 2010-4-12 11:02 编辑 ]