Паскаль ООП

[Vika2016]

Помогите пожалуйста записать эту программу с помощю ооп на паскале

uses
  graph, crt;
 
var
  x, y, gd, gm, : integer;
 
 
begin
  InitGraph(gd, gm, '');
  SetBkColor(black);
  cleardevice;
  
  // Движение по Х
  for x := 400 to 900 do
  begin
    SetColor(red);
    circle(x, 150, 50);
    delay(5);
    SetColor(0);
    circle(x, 150, 50);
  end; 
  
  for x := 900 downto 400 do
  begin
    SetColor(green);
    circle(x, 150, 50);
    delay(5);
    SetColor(0);
    circle(x, 150, 50);
  end;
  
  
  Readln;
  CloseGraph
end.

[Vika2016]

Кто знает напишите саму структуру используя этот простенький пример.. заранее спасибо очень срочно нужно

[Pavia]

uses
 crt, Graph;

type
 TCircle= object
   private
   X,Y,R:Integer;
   FColor:Integer;
   public
   constructor  Init(AX,AY,AR:Integer);
   procedure  SetX(Value:Integer);
   procedure  SetY(Value:Integer);
   procedure  SetR(Value:Integer);
   procedure  SetColor(Value:Integer);
   procedure  Draw; virtual;
   procedure  Erase; virtual;
   end;

constructor TCircle.Init(Ax,Ay,AR:Integer);
begin
Self.X:=AX;
Self.Y:=AY;
Self.R:=AR;
end;


procedure TCircle.SetX(Value:Integer);
begin
 X:=Value;
end;

procedure TCircle.SetY(Value:Integer);
begin
 Y:=Value;
end;

procedure TCircle.SetR(Value:Integer);
begin
if Value>0 then
   R:=Value;
end;

procedure TCircle.SetColor(Value:Integer);
begin
 FColor:=Value;
end;

procedure TCircle.Draw;
begin
 Graph.SetColor(FColor);
 Circle(X, Y, R);
end;

procedure TCircle.Erase;
begin
 Graph.SetColor(0);
 Circle(X, Y, R);
end;



var
 x,y, gd,gm: Integer;
 Circle1:TCircle;
begin
  InitGraph(gd, gm, 'c:\bp\bgi\');
  SetBkColor(Black);
  cleardevice;

  Circle1.Init(200,200, 50);
  Circle1.SetColor(Red);

  for x:= 400 to 900 do
    begin
      Circle1.SetX(x);
      Circle1.Draw;
      delay(5);
      Circle1.Erase;
    end;

    ReadLn;
    CloseGraph;
end.