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