Procedure Monster;
Procedure MonsterAdd(MonFile: string);
Procedure MonsterGet(MonFile: string; var MonRec: MonsterRec);
Procedure MonsterShow(MonRec: MonsterRec);