Разработать и реализовать иерархию классов

// родитель
TFigure=class
public
  a:array of TPoint;
  function GetSquare : double; virtual; abstract;
  constructor Create(PtsNum : integer);
end;
 
// треугольник
TTriangle=class(TFigure)
public
  function GetSquare : double; override;
end;
 
//прямоугольник
TRectangle=class(TFigure)
public
  function GetSquare : double; override;
end;

// реализация
constructor TFigure.Create(PtsNum : integer);
begin
  setLength(a,PtsNum);
end;
 
function TTriangle.GetSquare : double;
begin
  result := // сюда впиcать формулу для вычисления площади треугольника по точкам массива A
end;
 
function TRectangle.GetSquare : double;
begin
  result := // сюда впиcать формулу для вычисления площади прямоугольника по точкам массива A
end;

tri := TTrianlge.Create(3);
tri[0] := point(0,0);
tri[1] := point(100,0);
tri[2] := point(0,100);
showMessage('Площадь треугольника = '+formatFloat('0.00', tri.getSquare());
tri.free;