Вот так должно сработать и это ближе к схеме
## Код:
```
p := c;
  WHILE  (p # NIL) & ~ MenuHotkey(p(Menu), CHR(key.sym)) DO
    IF p.next # с THEN p := p.next ELSE p := NIL END
  END;
  IF p # NIL THEN p.do.click(p) END;
  ...
```
