> -- Grabli писал(а):
> TYPE Человек = POINTER TO ABSTRACT RECORD; END;        Мужчина = POINTER TO ABSTRACT RECORD(Человек); END;        Женщина = POINTER TO ABSTRACT RECORD(Человек); END;
Кстати, современная медицина способна превратить мужчину в женщину, а женщину в мужчину. Так что типов "Мужчина" и "Женщина" как расширений типа "Человек" - нету, ведь тип уже созданного объекта поменять нельзя, а пол уже созданного человека - можно.