Дополните программу треугольником

Unit GraphObj;
Interface   {интерфейсная часть модуля содержит только объявления объектов}
type
  TGraphObj = object
  Private                        {поля объектов будут скрыты от пользователя}
    X,Y: Integer;                               {координаты реперной точки}
    Color: Word;                                               {цвет фигуры}
  Public                 {методы объекта будут доступны пользователю}
    Constructor Init(aX,aY:Integer; aColor:Word);{создает экземпляр объекта*}
    Procedure Draw(aColor: Word); Virtual;
    {вычерчивает объект заданным цветом aColor}
    Procedure Show;
  {Показывает объект-вычерчивает его цветом Color}
    Procedure Hide;
    {Прячет объект -вычерчивает его цветом фона**}
    Procedure MoveTo(dX,dY: Integer);
    {Перемещает объект в точку с координатами x+dx и y+dy}
  end;                                             {конец описания объекта*}
 
  Tpoint = object(TGraphObj)
    Procedure Draw(aColor: Word); Virtual;
  end;
 
  Tline = Object(TGraphObj)
    dX,dY:Integer;{приращения координат второго конца*}
    Constructor Init(X1,Y1,X2,Y2: integer; aColor: Word);
    Procedure Draw(aColor: Word); Virtual;
  end;
  TCircle= Object(TGraphObj)
    R:Integer;{радиус}
    Constructor Init(aX,aY,aR: integer; aColor: Word);
    Procedure Draw(aColor: Word); Virtual;
  end;
 
  TRect = Object(Tline)
    Procedure Draw(aColor: Word); Virtual;
  end;
  Implementation
  {Исполняемая часть содержит описания всех объектных методов}
  Uses Graph;
  Constructor TGraphObj.Init;
  begin
    x := ax;
    y := ay;
    Color := aColor
  end;
  Procedure TGraphObj.Draw;
  begin
  {Эта процедура в родительском объекте ничего не делает,поэтому экземпляры TGraphObj не способны отображать себя на 
Экране .Чтобы потомки объекта были способны отображать себя,они должны перекрывать этот метод}
  end;
  Procedure TGraphObj.Show;
  begin
    Draw (Color)
  end;
  Procedure TGraphObj.Hide;
  begin
    Draw(GetBkColor)
  end;
  Procedure TGraphObj.MoveTo;
  begin
   Hide;
   x := x+dx;
   y := y+dy;
   Show
  end;
  Procedure TPoint.Draw;
  begin
    PutPixel(x,y,color){показываем цветом color пиксель с координатами х и y}
  end;
  Constructor TLine.Init;
  {Вызывает унаследованный конструктор TGraphObj для инициации полей x,y и
  color,затем инициирует поля dx и dy}
  begin
  {Вызываем унаследованный конструктор}
  Inherited Init(X1,Y1,aColor);{Ё*ЁжЁЁа㥬 Ї®«п dx Ё dy}
    dx := x2-x1;
    dy := y2-y1;
  end;
  Procedure TLine.Draw;
  begin
   SetColor(aColor);                            {устанавливаем цвет color}
   Line(x,y,x+dx,y+dy)                                 {вычерчиваем линию}
  end;
  Constructor TCircle.Init;
  begin
    Inherited Init(ax,ay,aColor);
    R := aR
  end;
 
  Procedure TCircle.Draw;
  begin
   SetColor(aColor);      {устанавливаем цвет color}
   Circle(X,Y,R)          {вычерчиваем окружность}
  end;
  Procedure TRect.Draw;
  begin
   SetColor(aColor);
   Rectangle(X,Y,X+DX,Y+DY) {вычерчиваем прямоугольник}
  end;
 end.

Unit GraphApp;
Interface
Uses GraphObj;    
const
  NPoints =100;                                       
Type
 TGraphApp = object
   Points: array [1..NPoints] of TPoint;                    
   Line : TLine;                                                 
   Rect : TRect;                                         
   Circ : TCircle;                                           
   ActiveObj : integer;                                   
   Procedure Init;
   Procedure Run;
   Destructor {Procedure} Done;
   Procedure ShowAll;
   Procedure MoveActiveObj (dX,dY: integer);
  end;
Implementation
Uses Graph,CRT;
Procedure TGraphApp.Init;
Var
  D,R,Err,k:integer;
begin
  {Ё*ЁжЁЁа㥬 Ја*дЁЄг}
  D:= Detect; 
  InitGraph (D,R,'\tp\bgi');
  Err := GraphResult;
  if Err<>0 then
   begin
    GraphErrorMsg(Err);
    Halt
   end;
  for k := 1 to NPoints do
    Points[k].Init (Random(GetMaxX),
    Random(GetMaxy),Random(15+ 1));
    Line.Init(GetmaxX div 3,GetMaxY div 3,2*GetMAXx Div
     3,2*GetMaxY div 3, LightRed);
    Circ.Init(GetMaxX div 2, GetMaxY div 2,GetMaxY div 5, White);
    Rect.Init(2*GetMaxX div 5,2*GetMaxY div 5,3*GetMaxX div 5, 3*GetMaxY div
     5, Yellow);
    ShowAll;     
  ActiveObj := 1
  end; {TGraphApp.Init}
  {----------------}
  Procedure TGraphApp.Run;
  {Выбираем объект с помощью tab и перемещаем его по экрану}
  var
   Stop: Boolean;           {признак нажатия esc}
  const
   D = 5;                                             {шаг смещения фигур}
  begin
   Stop := False;
   {–€Љ‹ ЋЏђЋ‘Ђ Љ‹Ђ‚€Ђ’“ђ›}
    repeat
     case ReadKey of                           {зЁв*Ґ¬ Є®¤ **¦*в®© Є«*ўЁиЁ}
     #27: stop := true;                                        {**¦*в* esc}
      #9: begin                                                {**¦*в* tab}
       inc(ActiveObj);                         {㢥«ЁзҐ*ЁҐ *®¬Ґа* ®ЎкҐЄв*}
        if (ActiveObj>3) then
          ActiveObj := 1                          {§*жЁЄ«Ёў*Ґ¬ ўлЎ®а дЁЈга}
        end;
      #0: case ReadKey of
        #71: MoveActiveObj(-D,-D);                          {ў«Ґў® Ё ўўҐае}
        #72: MoveActiveObj(0,-D);                                   {ўўҐае}
        #73: MoveActiveObj(D,-D);                          {ўЇа*ў® Ё ўўҐае}
        #75: MoveActiveObj(-D,0);                                   {ў«Ґў®}
        #77: MoveActiveObj(D,0);                                   {ўЇа*ў®}
        #79: MoveActiveObj(-D,D);                            {ў«Ґў® Ё ў*Ё§}
        #80: MoveActiveObj(0,D);                                     {ў*Ё§}
        #81: MoveActiveObj(D,D);                            {ўЇа*ў® Ё ў*Ё§}
       end
      end;
      ShowAll;
     Until Stop;
    end;                                                    {TGraphApp.Run}
    {----------------}
    Destructor{Procedure}TGraphApp.Done;
    {?}
    begin
     CloseGraph
   end;                                                    {TGraphApp.Done}
 
   {----------------}
   Procedure TGraphApp.ShowAll;
    {Џ®Є*§лў*Ґв ўбҐ Ја*дЁзҐбЄЁҐ ®ЎкҐЄвл}
   var
    k : integer;
  begin
    for k := 1 to NPoints do Points[k].Show;
    Line.Show;
    Rect.Show;
    Circ.Show
  end;
  {------------}
  Procedure TGraphApp.MoveActiveObj;
  {ЏҐаҐ¬Ґй*Ґв *ЄвЁў*л© Ја*дЁзҐбЄЁ© ®ЎкҐЄв}
  begin
    case ActiveObj of
      1: Rect.MoveTo(dX,dY);                   {ЏҐаҐ¬ҐйҐ*ЁҐ Їаאַ㣮«м*ЁЄ*}
      2: Circ.MoveTo(dX,dY);                            {ЏҐаҐ¬ҐйҐ*ЁҐ ЄагЈ*}
      3: Line.MoveTo(dX,dY);                            {ЏҐаҐ¬ҐйҐ*ЁҐ «Ё*ЁЁ}
    end
   end;
  end.

Program Graph_Objects;
Uses GraphApp;{Џ®¤Є«оз*Ґ¬ ¬®¤г«м GraphApp, Є®в®ал© Ї®¤Є«озЁв ¬®¤г«м GraphObj}
var
  App: TGraphApp;
begin
App.Init;
App.Run;
App.Done
end.