Изобразить произвольное движение точки, меняющей свой цвет

uses graphABC;
const cv:array[1..12] of integer=(clBlack,clPurple,clRed,clGreen,clBrown,clBlue,clSkyBlue,
                                  clAqua,clOlive,clFuchsia,clGray,clLime);
var i,x,y,c:integer;
begin
setpenwidth(3);
for i:=1 to 10 do
 begin
  x:=random(windowwidth-20)+10;
  y:=random(windowheight-20)+10;
  c:=random(12)+1;
  setpencolor(cv[c]);
  circle(x,y,1);
  sleep(1000);
  setpencolor(clWhite);
  circle(x,y,3);
 end;
setfontsize(18);
textout(windowwidth div 2-100,windowheight div 2,'Конец программы');
end.

uses graphABC;
var i,x,y,c:integer;
begin
setpenwidth(3);
for i:=1 to 10 do
 begin
  x:=random(windowwidth-20)+10;
  y:=random(windowheight-20)+10;
  c:=RGB(random(255),random(255),random(255));
  setpencolor(c);
  circle(x,y,1);
  sleep(1000);
  setpencolor(clWhite);
  circle(x,y,3);
 end;
setfontsize(18);
textout(windowwidth div 2-100,windowheight div 2,'Конец программы');
end.

uses graphABC;
var i,x,y:integer;
begin
setpenwidth(3);
for i:=1 to 10 do
 begin
  x:=random(windowwidth-20)+10;
  y:=random(windowheight-20)+10;
  setpencolor(RGB(random(255),random(255),random(255)));
  circle(x,y,1);
  sleep(1000);
  setpencolor(clWhite);
  circle(x,y,3);
 end;
setfontsize(18);
textout(windowwidth div 2-100,windowheight div 2,'Конец программы');
end.

c:=random(15)+1;