Про елочку для программистов

[RB]

http://header.km.ru/source/source10/print

[Dmut]

всё классно - компилируется, работает, только нужно баг исправить: итерация по SizeOf(Праздник.елочка.радость) должна начинаться с нуля, иначе после цикла у обьекта "Праздник.Дети.Настроение" происходит вылет по ассерту:
ASSERT(Праздник.Дети.Настроение >= Праздник.Дети.Мин_Праздничное_Настроение)
:D:D:D