Зимняя шутка

[prefreitor]

Стишок - рекурсия

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;