Создать объект "линия" - потомок объекта "точка" - Pascal ABC

Формулировка задачи:

Помогите пожалуйста ООП. Напишите программу с объектом "линия" - потомком объекта "точка".

Решение задачи: «Создать объект "линия" - потомок объекта "точка"»

Листинг программы

type
  TPoint = object
    x, y: Integer;
  end;
  TLine = object(TPoint)
    xe, ye: Integer;
  end;
var t: TLine;
begin
end.

Объяснение кода листинга программы

В данном коде определен тип данных TPoint, который представляет собой объект, имеющий два поля: x и y типа Integer. Далее определен тип данных TLine, который является потомком TPoint и имеет свои поля xe и ye типа Integer. В переменную t присваивается значение объекта типа TLine. Но в данном коде ничего не происходит с этим объектом, поэтому можно сказать, что он объявлен просто для наличия в коде.

Тип данных TPoint
Тип данных TLine
Объявление переменной t типа TLine