Procedure Point.Draw;
begin
PutPixel(520,290,white);
end;

Procedure Point.Draw;
begin
  PutPixel(X, Y, Color);
end;

Uses Graph, CRT;

Type
  GraphObj = object
    X,Y: Integer;
    Color: Word;

    Constructor Init(aX,aY:Integer;AColor:Word);

    Procedure Draw(aColor: Word); virtual;
    Procedure Show;
    Procedure Hide;
    Procedure Move(dX,dY:Integer);
  end;

Constructor GraphObj.Init;
begin
  X:=aX; Y:=aY; Color := AColor;
end;

Procedure GraphObj.Draw;
begin
  PutPixel(X,Y, aColor);
end;

Procedure GraphObj.Show;
begin
  Draw(Color);
end;

Procedure GraphObj.Hide;
begin
  Draw(GetBkColor);
end;

Procedure GraphObj.Move;
begin
  Hide;
  X:=X+dX; Y:=Y+dY;
  Show
end;

type
  Point = object(GraphObj)
    Constructor Init(aX,aY:Integer;aColor:Word);
    Procedure Draw(aColor:Word); Virtual;
  end;

Constructor Point.Init;
begin
  Inherited Init(aX,aY,aColor);
end;
Procedure Point.Draw;
begin
  PutPixel(X,Y,aColor);
end;

Var
  d,r,q:Integer;
  errcode: integer;
  Pt:Point;
begin
  D:=Detect;
  InitGraph(d,r,'');
  errcode := graphresult;
  if errcode <> grok then begin
    writeln('error: ', grapherrormsg(errcode));
    halt(100)
  end;

  q:=1;
  setcolor(white);
  rectangle(10, 10, getmaxx-10, getmaxy-10);

  Pt.Init(200,200,lightred);
  Pt.Show;
  readln;
  Repeat

    Pt.Move(-1, 1);
    q:=q+1;
    Delay( 4500);

  Until q>100;
  closegraph;
End.