TTransport = class abstract
procedure Drive; virtual; abstract;
procedure Close;
procedure Crash;
property Color;
property Wight;
//десяток других методов и полей
end;
TCar = class(TTransport)
procedure Drive; override;
end;
TBicycle = class(TTransport)
procedure Drive; override;
end;
TPlane = class(TTransport)
procedure Drive; override;
end;
TPlane = class(TTransport)
procedure Drive; override;
end;
TTrain = class(TTransport)
procedure Drive; override;
end;
TScooter= class(TTransport)
procedure Drive; override;
end;