problem z crt w pascalu

znalazłem przykład na zastosowanie w module crt procedury window

 uses Crt;

 var
  X,Y:Byte;

 BEGIN
  TextBackground(Black);            { Clear Screen }
  ClrScr;
  Repeat
   X:=Succ(Random(80));             { Draw random windows }
   Y:=Succ(Random(25));
   Window (X,Y,X+Random(10),y+Random(8));
   TextBackground (Random(16));     { In random colors }
   ClrScr;
  Until KeyPressed;
 END.
   

nie wiem dla czego ale wyskakuje błąd że jest niezadeklarowany identyfikator "window"