Возможное лечение:

## Код:
```
VAR
...
      lenLimit: INTEGER;
   ...
   PROCEDURE ShowArray (a, ind: INTEGER; desc: Kernel.Type; ptr: ArrayPtr; back: RefView; VAR sel: Name);
   ...
      ELSE
         t := eltyp;
         WHILE FormOf(t) = 12X DO t := t.base[0] END;
         IF FormOf(t) # 0X THEN
            OpenFold("#Dev:Elements");
            i := 0;
            WHILE i < MIN(len, lenLimit)<<<<<<<<<<<<<<<<< DO
               Strings.IntToString(i, str);
               name := "[" + SHORT(str$) + "]";
               ShowVar(a, ind, f, 1X, eltyp, ptr, back, name, sel);
               INC(i); INC(a, size)
            END;
>>>>>
            IF len > lenLimit THEN
               out.WriteString("Показаны не все элементы массива. Для настройки числа включаемых в дамп элементов используйте команду DevDebug.SetLenLimit(N). Большое число показываемых элементов для массивов сложной структуру может повлечь долгое формирование дампа.")
            END;
            out.WriteSString("   "); CloseFold(TRUE)
         END
      END
   END ShowArray;
   ...
   
   PROCEDURE SetLenLimit* (limit: INTEGER);
   BEGIN
      lenLimit := limit
   END SetLenLimit;

BEGIN
   ...
   lenLimit := 64
END DevDebug.
```
