Иерархия классов для представления геометрических фигур

[shilovec5377]

Всем привет.

На данном этапе просто хочу убедиться, что наследование реализовано корректно. Но когда пробую вызвать GetName, то возвращается только geometry. Остальные значения - пустые. Подорзреваю, что это из-за того, что неправильно работают конструкторы.
Как это исправить?

Т.е., я хочу добиться того, чтобы на данном этапе программа выдавала

geometry
polyline
polygon
ellipse
rectangle
а не только geometry (а затем 4 пустые строки).

Условие задачи
Разработать иерархию классов для представления геометрических
фигур: прямая, ломанная, прямоугольник, эллипс, многоугольник.
Разработать контейнер для хранения фигур.
Контейнер для хранения фигур реализовать в виде интерфейса с
общими методами для всех фигур. Классы каждой из фигур должны быть
реализацией данного интерфейса.

[somewhere]

Ошибка в методе GetName. Сейчас там написана одна строка: inherited GetName; - которая инициирует исполнение команд родителя, но ведь GetName - это по факту функция и она возвращает значение, а метод наследователя никаких значений не возвращает. Следует исправить на GetName := inherited GetName; и тогда все заработает как надо