TYPE
   ContainerNode* = POINTER TO RECORD
      data: ANYPTR;
      next: ContainerNode;
   END;

   Container* = POINTER TO ABSTRACT RECORD
      head: ContainerNode;
   END;

(* реализация методов работы с элементами контейнера, общих для всех типов наследников - добавление, удаление,
     сортировка и т.д.*)
 
 (*работу с конкретными хранимыми данными предлагается реализовать в модуле-клиенте переопределением
  этого метода*)
  PROCEDURE (this: Container) CreateNode-(data: ANYPTR): ContainerNode, NEW, ABSTRACT;