Классы в Паскале

Program xx;
uses crt, graph;
type
Point = record
x, y:integer;
end;
cl = object
Private
p1, p2, p3:point;
Color : Word;
Public
Procedure Init(x1, x2, y1, y2, z1, z2:integer);
Procedure Draw(aColor:Word);
Procedure Hide;
Procedure Move(dX, dY, dZ:integer);

end;

Procedure cl.Init(x1, x2, y1, y2, z1, z2:integer);
begin
     p1.x := x1;
     p1.y := x2;
     p2.x := y1;
     p2.y := y2;
     p3.x := z1;
     p3.y := z2;
     Color := 5;

end;

Procedure cl.Draw(aColor:word);
begin
     SetColor(aColor);
     Line(p1.x, p1.y, p2.x, p2.y);
     Line(p1.x, p1.y, p3.x, p3.y);
     Line(p2.x, p2.y, p3.x, p3.y);
end;

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

Procedure cl.Move(dX, dY, dZ:integer);
begin
        Hide;
        p1.x:= p1.x+dX;
        p2.x:= p2.x+dY;
        p3.x:= p3.x+dZ;
        Draw(Color);
end;

var Pnt:cl; x1, x2, y1, y2, z1, z2, grDriver, grMode, ErrCode, m : Integer; c:char;

begin
Writeln('Enter 1st point');
ReadLn(x1, x2);
Writeln('Enter 2st point');
ReadLn(y1, y2);
Writeln('Enter 2st point');
ReadLn(z1, z2);
Pnt.Init(x1, x2, y1, y2, z1, z2);
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin  { Do graphics }
Pnt.Draw(5);
 while (m<>27)do
  begin
  C := Readkey;
  m := Ord(c);
  Pnt.Move(5, 5, 5);
  end;
CloseGraph;
end
  else
    Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.