Объекты в графическом режиме: "Пульсирующая окружность"

Program primer;
uses Graph,Crt;
type
Point = object
X, Y:integer;R:Word;
Clr : Byte;
Visib : Boolean;
Procedure Init (InitX, InitY: integer; InitColor:Byte);
Procedure Show;
Procedure Hide;
Procedure ChangeColor(NewColor : Byte);
Procedure MoveTo(DX, DY : integer);
Function GetX : integer;
Function GetY : integer;
Function GetVis : Boolean;
End;
TPoin=object(Point)   
Procedure Init(InitX, InitY:integer;InitR:Word InitColor:Byte);
Procedure Show;
Procedure Hide;
end;
Procedure Point.Init (InitX, InitY,InitR:Word; InitColor:Byte);
begin
inherited Init(InitX, InitY, InitColor:Byte);
R := InitR
end;
Procedure Point.Show;
begin
SetColor(Clr);
Circle(X, Y, R);
Visib := True
end;
Procedure Point.Hide;
begin
SetColor(GetBkColor);
Circle(X, Y, R);
Visib := False
end;
Function Point.GetVis : Boolean;
begin
GetVis := Visib
end;
Procedure Point.ChangeColor (NewColor:Byte);
begin
Clr:=NewColor;
end;
Procedure Point.MoveTo (dX, dY : integer);
var Status : Boolean;
B, A : integer;
begin
Status := GetVis;
Hide;
A:=X+dX;
B:=Y+dY;
If A>639 Then X:= 639 else
if A<0 Then X:= 0 else x:=A;
if b>479 then y:=479 else
if b<0 then y:=0 else x:=b;
if status then show;
end;
Function point.GetX:integer;
begin
GetX:=X
end;
Function point.getY:integer;
begin
GetY:=Y
end;
var Gd, Gm:integer;
Ch:Char;
Pt:Point;
begin
Gd:=detect;
InitGraph(Gd,Gm,'');
Pt.Init(320,240,3);
Pt.Show;
Repeat Ch:=Readkey;
if Ch=#0 then begin
Ch:=Readkey;
Case Ch of
#72:Pt.MoveTo(0,-1);
#80:Pt.MoveTo(0,1);
#75:Pt.MoveTo(-1,0);
#77:Pt.MoveTo(1,0);
#59:if Pt.GetVis then Pt.Hide else Pt.Show;
end;end;
Until Ch=#13;
CloseGraph;
end.