Мдя )) Не любит народ структурки. Тоже самое (практически) :

STRUCT x
_ : DWORD;
Нс,Mn : INT;
END_STRUCT


STRUCT Uchet_po_smenam
Den,Mesiac, God : WORD;
Dnevnaia,Nochnaia : array [1..5] of x;
Num : BYTE;
END_STRUCT

с указателями возможны периодические сбои.
Если это происходит на Новый год, то это нормально.
Ведь смена вероисповедания до добра не доводит ))