(* Chapter 15 - Program 7 *)
program Inheritance_3;

uses vehicles, CarTruck;

{ ************************ main program ************************** }

var Unicycle   : Vehicle;
    Sedan      : array[1..3] of Car;
    Semi_Point : ^Truck;
    Index      : integer;

begin

   Unicycle.Init(1, 12.0);
   for Index := 1 to 3 do
      Sedan[Index].Init(4, 2100.0, 5 + Index);
   New(Semi_Point);
   Semi_Point^.Init(1, 25000.0, 18, 5000.0);

   WriteLn('The unicycle weighs ', Unicycle.Get_Weight:5:1,
           ' pounds, and has ', Unicycle.Get_Wheels, ' wheel.');
   for Index := 1 to 3 do
      WriteLn('The car weighs ', Sedan[Index].Get_Weight:7:1,
              ' pounds, and carries ', Sedan[Index].Passengers,
              ' passengers.');

   WriteLn('The semi has a wheel loading of ',
           Semi_Point^.Wheel_Loading:8:1,
           ' pounds per tire,');
   WriteLn(' and has an efficiency of ', Semi_Point^.Efficiency:5:1,
           ' percent.');

   with Semi_Point^ do
   begin
      WriteLn('The semi has a wheel loading of ', Wheel_Loading:8:1,
              ' pounds per tire,');
      WriteLn(' and has an efficiency of ', Efficiency:5:1,
              ' percent.');
   end;
   Dispose(Semi_Point);
end.




{ Result of execution

The unicycle weighs  12.0 pounds, and has 1 wheel.
The car weighs  2100.0 pounds, and carries 6 passengers.
The car weighs  2100.0 pounds, and carries 7 passengers.
The car weighs  2100.0 pounds, and carries 8 passengers.
The semi has a wheel loading of   1666.7 pounds per tire,
 and has an efficiency of 83.3 percent.
The semi has a wheel loading of   1666.7 pounds per tire,
 and has an efficiency of 83.3 percent.

}