Не могу найти ошибку в своей программе

unit obj;
interface
uses GraphABC;
type koordinata=class
x,y:integer;
constructor create(X1,Y1:integer);
function getX:integer;
function getY:integer;
end;
point=class(koordinata)
visible:boolean;
constructor create(X1,Y1:integer);
procedure show;
procedure hide;
procedure shift(X1,Y1:integer);
end;
gorizontal=class(point)
constructor create(X1,Y1:integer);
procedure show;
procedure hide;
procedure shift(X1,Y1:integer);
end;
implementation
constructor koordinata.create(X1,Y1:integer);
begin
x:=X1;
y:=Y1;
end;
function koordinata.getX:integer;
begin
getX:=x;
end;
function koordinata.getY:integer;
begin getY:=y;
end;
constructor point.create(X1,Y1:integer);
begin
koordinata.create(X1,Y1);
end;
procedure point.show;
begin
visible:=true;
putpixel(x,y,brushcolor);
end;
procedure point.hide;
begin
visible:=false;
putpixel(x,y,brushcolor);
end;
procedure point.shift(X1,Y1:integer);
begin
hide;
create(X1,Y1);
show;
end;
constructor gorizontal.create(X1,Y1:integer);
begin
line(14,6,19,6);
point.create(X1,Y1);
end;
procedure gorizontal.show;
begin
visible:=true;
end;
procedure gorizontal.hide;
var temp:word;
begin
setbrushcolor(8);
show;
visible:=true;
end;
procedure gorizontal.shift(X1,Y1:integer);
begin
hide;
x:=X1;
y:=Y1;
show;
end;
end.

program vizov;
uses GraphABC,crt,obj23;
var  XP:point;
XG:gorizontal;
begin
with XP do begin
point.create (100,1000);
point.show;
point.shift (190,190);
point.hide;
end;
with XG do begin
gorizontal.create (130,130);
gorizontal.show;
gorizontal.shift (180,130);
gorizontal.hide;
end;
end.