## Код:
```
VAR p:POINTER TO ARRAY OF INTEGER;
PROCEDURE Bad(VAR a:INTEGER);
BEGIN
  p:=NIL;
  ...здесь срабатывает сборщик мусора, и вызывается NEW для чего-то ещё.
  a:=10;
END Bad.

BEGIN
  NEW(p,100);
  ...
  Bad(p[10])
END
```
