Работа с объектами

[NeXuLoN]

Помогите написать программу, объект «пульсирующая окружность» - потомок объекта точка.
Вот пытался сделать:

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.

[evg_m]

не вижу никаких вопросов.

[NeXuLoN]

Ну программа круг не выводит. Одни ошибки и я не знаю из за чего

Реально кто нибудь может помочь?

[Пепел Феникса]

какие ошибки?
код оформляем.

[NeXuLoN]

ошибка 131: " Header Does not match previous definition "

Program primer;
uses Graph,Crt;
type
point = object
X, Y:integer;
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;
Type
NEN = object(point)
R : Word;
Procedure Init(InitX, InitY, InitR:Word; InitC:Byte);
Procedure Show;
Procedure Hide;
end;

Procedure Point.Init (InitX, InitY: integer; InitR:Word; InitColor:Byte); {первая ошибка и не знаю как её исправить}
begin
R :=InitR
X :=InitX;
Y :=InitY;
Clr :=InitColor;
Visib :=False;
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.

[Murlokotan61]

Для начала устранить сплошь и рядом отсутствие "точки с запятой".

[Stilet]

Procedure Point.Init (InitX, InitY: integer; InitR:Word; InitColor:Byte); {первая ошибка и не знаю как её исправить}

Посмотри внимательно как ты ее описал
вообще не рекомендую описывать заголовок процедур полностью в реализайии. Оставь только

Procedure Point.Init;

Второе:
У тебя в классе Point нет свойства R.
Ты его поставил в класс NEW (Ой как нехорошо ты назвал - это зарезервированное слово).
Или R перенеси в point или стратегию меняй.

Делай это а потом посмотрим.