Производные классы, то, что не наследуется Опции

[Jill]

подскажите, плз!
креплю проект

задание таково:
Создать класс поезд, имеющий стоимость билета. Определить конструктор, деструктор и методы доступа (чтения и записи) к полям класса.
Создать два производных класса:
1)Класс - общий вагон, имеющий стоимость билета и количество посадочных мест.
2)Класс – купейный вагон, имеющий стоимость билета, количество посадочных мест, стоимость постели.

не выходит с количеством посадочных мест (общий вагон и купейный) и стоимостью постели (купейный вагон)
то бишь то, что не наследуется от родительского класса

знаю, что "истина где-то рядом", но не доходит

помогите, пожалуйста

[hardcase]

задание таково:
Создать класс поезд

то, что ты делаешь в программе - это НЕ ООП.
Разве так в Делфи объявляют КЛАССЫ?

type
  UkRRain  = ^RRain ;
  RRain  = record
    PRain:TRain ;
    Next: UkRRain ;
  end;
  UkRObschVagon = ^RObschVagon;
  RObschVagon = record
    PObschVagon: TObschVagon;
    Next: UkRObschVagon;
  end;
  UkRKupVagon = ^RKupVagon;
  RKupVagon = record
    PKupVagon: TKupVagon;
    Next: UkRKupVagon;
  end;

Ты здесь объявляешь ЗАПИСИ и указателии на них. А классы объявляются по другому:

type
  TMyClass = class(TParentClass)
    private
   { закрытые члены }
    protected
   { защищенные члены }
    public
   { открытые члены }
  end;

Изучай синтаксис!