Качение квадрата

[Leshiy1]

Здравствуйте

Program kvadrat;
 const
   kv=4;
   speed=1.5;
   one=pi/180;
   step=one*speed;
   ms=2000;
 
 Type Tpoint=object
        x,y:real;
        Pcolor:byte;
        constructor Init(xx,yy:real; col:byte);
        Procedure Rotate(xOs,yOs:integer); Virtual;
        Procedure Show(col:byte); Virtual;
        Destructor Done;
 End;
 Tline=object (Tpoint)
  pn,pk:Tpoint;
  Lcolor:byte;
  Constructor Init(x1,y1,x2,y2:real; colo:byte);
  Procedure Rotate(xOs,yOs:integer); virtual;
  Procedure Show(col:byte); virtual;
  Destructor Done;
  End;
  Tsides=array[0..kv-1] of Tline;
  Tsqure=object(Tline)
  as:byte;
  Sides:Tsides;
  Scolor:byte;
  Constructor Init (aa,colk:byte);
  Procedure Rotate(xOs,yOs:integer); virtual;
  Procedure Show(col:byte); virtual;
  Destructor Done;
  End;
 Tscreen=object(Tsqure)
 Gdisp:integer;
 Gcolor:byte;
 angle:real;
 OsX,OsY:integer;
 Constructor Init(aa,colk,colg:byte; dG:integer);
 Procedure GraphInint; Virtual;
 Function shiftOsXY:boolean; virtual;
 Procedure Go; virtual;
 Procedure DrawGrond; virtual;
 Destructor Done;
 End;

Должен катиться квадрат по прямой поверхности.
Пишет Error 10:Unexpected end of file.(Не найден конец файла)
Почему не запускается программа?