unit sportunit;

interface
uses carunit;


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


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


procedure TSportCar.TakePassanger;
begin
 fPassCount:=2;
 writeln('PassCount:',fpasscount);
end;

end.