Кто поможет с "пульсирующей" окружностью???

[ramzes]

На лови.

USES Crt, Graph;
VAR
 Gd, Gm : integer;
BEGIN
 Gd := Detect;
 InitGraph(Gd, Gm, 'd:\prog\bp\bgi'); {здесь укажи свой путь к папке \bgi}
 if GraphResult <> grOk then
   Halt(1);
 repeat
   setcolor(random(10));
   Circle(300, 200, 50);
   delay(50)
 until keypressed;
 CloseGraph;
END.

[Solny6ko YasnoE]

А можно поинтересоваться что такое Halt(1); ???
СПАСИБО ОГРОМНОЕ!!!!!!!!!!!!!!!!!!!!!!