// Создание итератора
void ForEach(PF action, int wghtFLAnimal);
 //Реализация итератора
void Home::ForEach(PF action, int wghtFLAnimal)
{
    Item *cur;
    cur=begin;
    while(cur)
    {
        action(cur->item, wghtFLAnimal);
        cur = cur->next;
    }
}
// Вывод животных с весо больше 50
void action(TObject *obj, int wghtFLAnimal)
{
    if( ((FLAnimal*)obj)->GetwghtFLAnimal() > wghtFLAnimal )
        obj->ShowFunc();
}