Стишок - рекурсия
DogManagement:
SendMailMessage(var Pop - Record (Type Pop)), var DogMgt - Codeunit(DogManagement);
Код:
IF Pop.DogExist AND Pop.PopLoveDog AND Pop.DogEatingMeat THEN
IF DogMgt.KillDog(Pop) THEN BEGIN
DogMgt.BuryDog(Pop);
DogMgt.SendMailMessage(Pop);
END;