Теория и практика объектно-ориентированного программирования. Ноткин А.М. - 18 стр.

                                    19

      Constructor Init(name1:string;sex1:boolean;age1:byte;
      year1:byte;rating1:byte);
      Destructor Done;virtual;
      Function GetYear:byte;
      Function GetRating:byte;
      Procedure SetYear(NewYear:byte);
      Procedure SetRating(NewRating:byte);
      Procedure Show;virtual;
     end;

     { Служащий }
     PEmployee=^TEmployee;
     TEmployee=object(TPerson)
      post:string;{должность}
      work:byte;{рабочий стаж}
      Constructor Init(name1:string;sex1:boolean;age1:byte;
                 post1:string;work1:byte);
      Destructor Done;virtual;
      Function GetPost:string;
      Function GetWork:byte;
      Procedure SetPost(NewPost:string);
      Procedure SetWork(NewWork:byte);
      Procedure Show;virtual;
     end;

     {Преподаватель }
     PTeacher=^TTeacher;
     TTeacher=object(TEmployee)
      TeacherWork:byte;{педагогический стаж¦}
      Constructor Init(name1:string;sex1:boolean;age1:byte;
      post1:string;work1:byte;teacherwork1:byte);
      Destructor Done;virtual;
      Function GetTeacherWork:byte;
      Procedure SetTeacherWork(NewTeacherWork:byte);
      Procedure Show;virtual;
     end;

     2. Определить для классов виртуальный метод Show, который пока-
зывает состояние объекта.
     Например:
     Procedure TPerson.Show;