Программа приостанавливается

Uses graphABC,Events,crt;
 
const n = 10;
 
var X,Y,R : array [1..n] of integer;
    i : byte;
    
 procedure MouseDown(x,y,md : integer);
begin
 Clrscr;
end;   
 
begin
 
SetWindowSize(600,400);
SetBrushColor(ClYellow);
 
For i := 1 to n do
begin
 R[i] := Random(50) + 20;
 X[i] := Random(300) + 200;
 Y[i] := Random(200) + 100;
 Circle(X[i],Y[i],R[i]);
 OnMouseDown := MouseDown;
  end;
end.

Uses graphABC;
 
const n = 10;
 
var X,Y,R : array [1..n] of integer;
    i : byte;
    finish:boolean;
procedure MouseDown(x,y,md : integer);
begin
 Window.Clear; //очистка графического окна - клик мыши
end;   
 
procedure KP(c:integer);
begin
 finish:=c=VK_Escape; //выход - Esc
end;
 
begin
 
SetWindowSize(600,400);
//SetBrushColor(ClYellow);
 OnMouseDown := MouseDown;
 OnKeyUp:=KP;
finish:=false;
repeat
  For i := 1 to n do
  begin
   R[i] := Random(50) + 20;
   X[i] := Random(300) + 200;
   Y[i] := Random(200) + 100;
   SetBrushColor(clRandom);   
   Circle(X[i],Y[i],R[i]);
  sleep(100);   
  end;
until finish;
  Window.Close;
end.

uses ABCObjects, GraphABC;
const
  rmn = 5;  //Минимальный радиус окружности
  rmx = 40;  //Максимальный радиус окружности
type
  circles = class
    public x: integer;
    public y: integer;
    public r: integer;
    public c_obj_: ABCObjects.CircleABC;
    public procedure Print_(cl: integer);
      begin
        self.c_obj_:= ABCObjects.CircleABC.Create(x,y,r,System.Drawing.Color.FromArgb(cl));
      end;
    constructor create(x,y,r,cl: integer);
      begin
        self.x:= x;
        self.y:= y;
        self.r:= r;
        Print_(cl);
      end;
    public procedure erase_();
      begin
        self.c_obj_.Destroy;
        ABCObjects.RedrawObjects;
      end;
  end;
var
  obj_: List<circles>:= new List<circles>;
function CreateCircle(): circles;
  begin
    Result:= circles.create(Random(graphABC.Window.Width-rmx*2+1)+rmx,Random(graphABC.Window.Height-rmx*2+1)+rmx,Random(rmx-rmn*2+1)+rmn,Random(integer.MaxValue));
  end;
procedure main();
  begin
    var o:= ABCObjects.TextABC.Create(1,1,12,'Введите количество окружностей');
    for var i:= 1 to ReadInteger() do
      begin
        obj_.Add(CreateCircle());
      end;
  end;
procedure MouseDown(x, y, mk: integer);
  begin
    foreach var obj in obj_ do
      if obj.c_obj_.PtInside(x, y) and (mk = 1)
        then
          begin
            obj_.Remove(obj);
            obj.erase_;
            obj_.Add(CreateCircle());
            break;
          end;
  end;
begin
  GraphABC.OnMouseDown += MouseDown;
  Randomize;
  main;
end.

uses GraphAbc,ABCObjects;
var
  L:List<CircleABC>:=new List<CircleABC>;
  n,i:integer;
  
Procedure AddCircle;
var
  R:integer;
begin
  r:=Random(5,40);
  l.Add(CircleABC.Create(Random(R,WindowWidth-R),Random(R,WindowHeight-R),R,clRandom));  
end;
 
procedure MouseDown(x,y,mk:integer);
var
  i:integer;
begin
  if mk=1 then 
    for i:=l.Count-1 downto 0 do begin
      if l[i].PtInside(x,y) then begin 
        l[i].Destroy;
        ABCObjects.RedrawObjects;
        l.Remove(l[i]);
        AddCircle;
        break;
     end;   
    end; 
end;
 
begin
  randomize;
  n:=ReadInteger('Введите количество кругов:');
  ClearWindow;
  for i:=1 to n do AddCircle;
  OnMouseDown:=MouseDown;
end.