(* Chapter 16 - Programming exercise 1 *)
unit Supervsr;

interface

uses Person;

type
   Supervisor = object(Person_ID)
      Title : string[15];
      constructor Init(In_Name   : string;
                       In_Salary : integer;
                       In_Title  : string);
      procedure Display; virtual;
   end;

   Programmer = object(Person_ID)
      Language : string[25];
      constructor Init(In_Name     : string;
                       In_Salary   : integer;
                       In_Language : string);
      procedure Display; virtual;
   end;

   Consultant = object(Person_ID)
      Specialty : string[25];
      constructor Init(In_Name      : string;
                       In_Fee       : integer;
                       In_Specialty : string);
      procedure Display; virtual;
   end;

   Secretary = object(Person_ID)
      Shorthand : boolean;
      typing_Speed : integer;
      constructor Init(In_Name         : string;
                       In_Salary       : integer;
                       In_Shorthand    : boolean;
                       In_TYping_Speed : integer);
      procedure Display; virtual;
   end;

implementation

   constructor Supervisor.Init(In_Name   : string;
                               In_Salary : integer;
                               In_Title  : string);
   begin
      Name := In_Name;
      Salary := In_Salary;
      Title := In_Title;
   end;

   procedure Supervisor.Display;
   begin
      WriteLn(Name,' is the ',Title, ' and makes $', Salary,
                   ' per month.');
   end;


   constructor Programmer.Init(In_Name     : string;
                               In_Salary   : integer;
                               In_Language : string);
   begin
      Name := In_Name;
      Salary := In_Salary;
      Language := In_Language;
   end;

   procedure Programmer.Display;
   begin
      WriteLn(Name,' specializes in ',Language, ' and makes $', Salary,
                   ' per month.');
   end;


   constructor Consultant.Init(In_Name      : string;
                               In_Fee       : integer;
                               In_Specialty : string);
   begin
      Name := In_Name;
      Salary := In_Fee;
      Specialty := In_Specialty;
   end;


   procedure Consultant.Display;
   begin
      WriteLn(Name,' specializes in ',Specialty, ' and his fee is $',
                     Salary, ' per consulting month.');
   end;


   constructor Secretary.Init(In_Name         : string;
                              In_Salary       : integer;
                              In_Shorthand    : boolean;
                              In_Typing_Speed : integer);
   begin
      Name := In_Name;
      Salary := In_Salary;
      Shorthand := In_Shorthand;
      Typing_Speed := In_Typing_Speed;
   end;

   procedure Secretary.Display;
   begin
      WriteLn(Name,' can type ',Typing_Speed, ' words per minute.');
   end;

end.