Я делаю интересней. Правда я так вид аварии определяю, и основной стоп...
Код:
stop:=false
for i:=1 to 6 do
   alarm[i]:= false
   if alfa[i]=0 then
      alarm[i]:=true
      stop:=true
   end_if
end_for
... Тут далее этот stop обрабатываем, иначе он может потеряться, т.к. всегда вначале обнуляется.
Ретурн не делаю...
В массиве алармов видно, на какой переменной нулевые значения, при чем на всех, а не на первой, если применять ретурн.
А стоп один общий, если хотя бы один ноль есть...