unit familyunit;

interface
uses vehicleunit,carunit;

type
 TFamilyCar = class (TCar)
  protected
 constructor Create(Speed,PassCount:byte;Color,Mark:string);
 procedure   MoveFaster;override;
 procedure   MoveSlower; override;
 procedure   TakePassanger; override;
 end;

implementation
constructor TFamilyCar.Create(Speed,PassCount:byte;Color,Mark:string);
begin
  inherited Create(Speed,PassCount,Color,Mark);
end;

procedure TFamilyCar.MoveFaster;
begin
inherited MoveFaster;
end;

procedure TFamilyCar.MoveSlower;
begin
 inherited MoveSlower;
end;

procedure TFamilyCar.TakePassanger;
begin
 inherited TakePassanger;
end;

end.