uses Crt, Graph;
const k=100;
var
 GraphDriver, GraphMode: Integer;
 X1,y1, r: Integer;ch:char;
begin
 GraphDriver := Detect;
 InitGraph(GraphDriver, GraphMode, ' ');
 if GraphResult<> grOk then
   Halt(1);
repeat
 ch:=readkey;
 if ch=chr(13) then begin
  X1 := Random(640-k)+k;
   y1 := Random(480-k)+k;
  r:=Random(k)+1;
  circle(X1,y1,r);
 end;
until ch=chr(27);
CloseGraph;
end.

{ Отрисовал картинку, теперь надо "погасить" на секунду }

{ Гасим. Для этого просто все цвета сделаем "черными" }
for i := 1 to 15 do
begin
  setpalette (i, black); { Нулевой цвет я бы не трогал. }
end;

readln; { Ждем какое-то время, можешь заменить на Delay }

{ "Проявляем" картинку }
for i := 1 to 15 do
begin
  setpalette (i, i);
end;
{ ... и рисуем новую окружность сразу после "проявки"... }

Function MouseIn(KoordX,KoordY,x1,y1,r:word):boolean;
var
rdx,rcx:word;
begin
asm
 mov ax,$03
 int $33
 mov rdx,dx
 mov rcx,cx
end;
MouseIn := (sqr((KoordX-x1)/r) + sqr((KoordY-y1)/r))<=1
end;
{из основной}
if ButtonPressed=1 then begin
 GetMouseXY(KoordX,KoordY);
if MouseIn(KoordX,KoordY,x1,y1,r) then next_circle:=true else next_circle:=false;
 end;

   { из основной }
   if ButtonPressed = 1 then
   begin
      GetMouseXY(KoordX,KoordY);
      if MouseIn(KoordX,KoordY,x1,y1,r) then next_circle:=true else next_circle:=false;
   end;

{ Заметь, я сделал параметры типа LongInt сразу, чтоб предотвратить переполнение }
Function MouseIn (KoordX, KoordY, x1, y1, r : LongInt) : boolean;
begin
   MouseIn := sqr(KoordX - X1) + sqr(KoordY - Y1) <= sqr®;
end;

Function MouseIn (x1, y1, r : LongInt) : boolean;
var
   C_X, C_Y: word;
begin
   Asm
      mov ax, $03
      int $33
      mov C_X, CX
      mov C_Y, DX
   end;
   MouseIn := sqr(C_X - X1) + sqr(C_Y - Y1) <= sqr®;
end;

{ и в основном коде: }

   repeat { который после mouse_on }

      { ... }
      repeat until ButtonPressed = 1; { вместо if ButtonPressed=1 then }
      { Просто ждем, пока будет нажата левая кнопка мыши,
      а потом - проверяем, где именно она была нажата }

      next_circle := MouseIn(x1, y1, r);

   until next_circle = false;

      IntIt := 0;
      repeat
        r := Random(k) + 20;
        X1 := Random(GetMaxX - r*2) + r;
        Y1 := Random(GetMaxY - r*2) + r;

        ok := true;
        for i := 1 to curr do
          ok := ok and (sqr(C[i].X - X1) + sqr(C[i].Y - Y1) >
                        sqr(R + C[i].R));
        inc(IntIt);
      until ok or (IntIt > MaxIt);
      inc(curr);
      if IntIt > MaxIt then
        writeln('Ошибка: невозможно разместить ',curr,'-ю окружность');