Постройте на экране компьютера две окружности радиусов R1, R2 разных цветов, имитируя появление и исчезновение каждой окружности хаотически- Pascal(Паскаль)

uses crt,graph;
var x1,y1,x2,y2,r1,r2:integer;
begin
clrscr;
randomize;
writeln('Vvedite R1,R2, [10,50]');
readln(r1,r2);
x1:=0;
initgraph(x1,y1,'');
repeat
x1:=random(getmaxX-2*r1)+r1;
y1:=random(getmaxy-2*r1)+r1;
x2:=random(getmaxX-2*r2)+r2;
y2:=random(getmaxy-2*r2)+r2;
setcolor(12);
circle(x1,y1,r1);
setcolor(14);
circle(x2,y2,r2);
delay(1000);
setcolor(0);
circle(x1,y1,r1);
circle(x2,y2,r2);
until keypressed;
end.