Создать класс Point (точка). На его основе создать классы ColoredPoint и Line

type
  Point = class
  private
    FX, FY: LongInt;
  end;
 
  ColoredPoint = class (Point)
  private
    FColor: LongWord;
  end;
 
  Line = class (Point)
  private
    FEndX, FEndY: LongInt;
  end;
 
  ColoredLine = class (Line)
  private
    FColor: LongWord;
  end;

TMyPoint=class
private
  FColor : TColor;
  FCrd:array of TPoint;
  function GetCoord(index:integer):TPoint; virtual;
  procedure SetCoord(index:integer; value:TPoint); virtual;
  function GetColor:TColor; virtual;
  procedure SetColor(Value:TColor); virtual;
public
  constructor Create; virtual;
  destructor Destroy; virtual;
  property Coord[index:integer] : TPoint read GetCoord write SetCoord;
  property Color:TColor read GetColor write SetColor;
end;
 
TMyLine=class(TMyPoint)
public
  constructor Create; override;
end;

function TMyPoint.GetCoord(index:integer):TPoint; 
begin
  result := FCrd[index];
end;
 
procedure TMyPoint.SetCoord(index:integer; value:TPoint); 
begin
  FCrd[index] := value;
end;
 
function TMyPoint.GetColor:TColor;
begin
  result := FColor;
end;
 
procedure TMyPoint.SetColor(Value:TColor); 
begin
  FColor := value;
end;
 
constructor TMyPoint.Create;
begin
  inherited;
  SetLength(FCrd,1);
end;
 
destructor TMyPoint.Destroy;
begin
  SetLength(FCrd,0);
  inherited;
end;
 
constructor TMyLine.Create; 
begin
  inherited;
  SetLength(FCrd,2);
end;

procedure TMyPoint.SetCount(n:integer);
begin
  SetLength(FCrd,N);
end;

constructor TMyPoint.Create; 
begin
  inherited;
  CrdCount:=1;
end;
constructor TMyLine.Create; 
begin
  inherited;
  CrdCount:=2;
end;
constructor TMyPolyline.Create; 
begin
  inherited;
  CrdCount:=0;
end;