Наложение фигур Опции

[ТОХА]

Здравствуйте!
при написании одного из модулей программы я столкнулся с такой проблемой как наложение фигур друг на друга. Как сделать так чтоб последующая фигура рисовалась на свободном месте экрана и не накладывалась на другие?

 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.

[volvo]

А ты знаешь, мне тут еще один финт в голову пришел. Попробуй, будет оно работать или нет, мне сейчас негде, Турбо Паскаля под рукой нет, а в FPC это не отработает.

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

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

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

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

Как тебе такой вариант?

P.S. Еще более наглый вариант - попробовать рисовать вслепую, пока цвета палитры сброшены в черный. То есть, устанавливаешь цвет через SetColor, и рисуешь. В принципе, не вижу причин, чтоб потом, при восстановлении палитры это не "проявилось".