ABC.net графика. Движение рисунка из 5 графических примитивов по траектории

uses GraphABC;
begin
setbrushcolor(clblue);
fillrect(0,0,800,150);
line(100,100,150,50);
line(150,50,200,100);
line(200,100,100,100);
Brush.Style := bsHatch;
Brush.Hatch := bhcross;
floodfill(120,90,clbrown);
setbrushcolor(clgreen);
rectangle(115,100,185,150);
Brush.Style :=bsSolid;
setbrushcolor(clred);
circle(150,75,10);
setbrushcolor(clblue);
rectangle(125,110,140,130);
setbrushcolor(clyellow);
textout(140,110,'Мой дом');
setbrushcolor(clgreen);
fillrect(0,150,800,640);
line(125,115,138,115);
line(125,115,138,115);
line(132,115,132,129);
floodfill(133,120,clYellow);
floodfill(129,120,clYellow);
end.

uses GraphABC;
var x,y,y0,r,q:integer;
begin
LockDrawing;
 x:=0; y:=0;
 y0:=0;writeln('введи радиус r',r);
 readln(r);
 Brush.Color :=clRandom; 
 repeat
 Window.Clear;
 x:=round(y*1.33);
y:=y+1;
Circle(x,y,r);
Pie(x,y,r,250,15);
Redraw;
q:=640-r;
Sleep(1);
until x>=q;
repeat
clearWindow;
Circle(x,y,r);
y:=y-1;
sleep(5);
redraw;
until y=r;
end.