Вращение объекта pascalabc.net

Program DollMasha; 
uses Graphabc; //подключение модуля GraphABC
 
procedure Doll(x,y,r:integer);
var i,j,l:integer;
begin
   {волосы}setpenwidth(1);setbrushcolor(rgb(210, 105, 30)); DrawPie(x+47,y+40,r+30,46,165); FillPie(x+47,y+40,r+30,46,165); DrawPie(x+87,y+40,r+30,0,150); FillPie(x+87,y+40,r+30,0,150); ellipse(x+47,y-15,x+87,y+5);
   setbrushcolor(rgb(255,220,177));//цвет кожи  
   {уши} setpenwidth(2); DrawPie(x+10,y+37,r-5,100,300); FillPie(x+10,y+37,r-5,100,300);    DrawPie(x+124, y+37, r-5, -120, 80); FillPie(x+124, y+37, r-5, -120, 80);
   {голова} DrawPie(x+67,y+16,r+50,-15,-165); FillPie(x+67,y+16,r+50,-15,-165);   
   {руки} setpenwidth(1); Line(x+42,y+120,x+10,y+160); Circle(x+10,y+160,r-5);    Line(x+92,y+120,x+124,y+160); Circle(x+124,y+160,r-5);
   {ноги} Line(x+55,y+240,x+55,y+270); Ellipse(x+56,y+273,x+35,y+265);    Line(x+75,y+240,x+75,y+270); Ellipse(x+75,y+273,x+96,y+265);
   {лицо}setbrushcolor(clblack); Ellipse(x+60,y+30,x+65,y+40); Ellipse(x+70,y+30,x+75,y+40); Arc(x+67,y+40,r+10,-30,-150);//левый, правый глаз, улыбка
   setbrushcolor(rgb(255, 182, 193));// цвет платья
   {рюшечки} i:=x+25; j:=y+225; for l:=1 to 7 do begin Circle(i,j,r); i:=i+15; if (l<3) then j:=j+3 else if (l=3) then j:=j+1 else if (l=4) then j:=j-1 else j:=j-3; end;
   {платье} setpenwidth(2); DrawPie(x+66,y+190,r+80,70,108); FillPie(x+66,y+190,r+80,70,108); DrawPie(x+66,y+80,r+140,-68,-110); FillPie(x+66,y+80,r+140,-68,-110);
end;
 
var x,y,r:integer;
begin 
   SetWindowWidth(800); //ширина окна программы 
   SetWindowHeight(600); //высота окна программы 
   x:=300; y:=150; r:=10;  
   Doll(x,y,r);
end.

Program DollMasha; 
uses Graphabc; //подключение модуля GraphABC
 
procedure Doll(x,y,r:integer);
var i,j,l:integer;
begin
   {волосы}setpenwidth(1);setbrushcolor(rgb(210, 105, 30)); DrawPie(x+47,y+40,r+30,46,165); FillPie(x+47,y+40,r+30,46,165); DrawPie(x+87,y+40,r+30,0,150); FillPie(x+87,y+40,r+30,0,150); ellipse(x+47,y-15,x+87,y+5);
   setbrushcolor(rgb(255,220,177));//цвет кожи  
   {уши} setpenwidth(2); DrawPie(x+10,y+37,r-5,100,300); FillPie(x+10,y+37,r-5,100,300);    DrawPie(x+124, y+37, r-5, -120, 80); FillPie(x+124, y+37, r-5, -120, 80);
   {голова} DrawPie(x+67,y+16,r+50,-15,-165); FillPie(x+67,y+16,r+50,-15,-165);   
   {руки} setpenwidth(1); Line(x+42,y+120,x+10,y+160); Circle(x+10,y+160,r-5);    Line(x+92,y+120,x+124,y+160); Circle(x+124,y+160,r-5);
   {ноги} Line(x+55,y+240,x+55,y+270); Ellipse(x+56,y+273,x+35,y+265);    Line(x+75,y+240,x+75,y+270); Ellipse(x+75,y+273,x+96,y+265);
   {лицо}setbrushcolor(clblack); Ellipse(x+60,y+30,x+65,y+40); Ellipse(x+70,y+30,x+75,y+40); Arc(x+67,y+40,r+10,-30,-150);//левый, правый глаз, улыбка
   setbrushcolor(rgb(255, 182, 193));// цвет платья
   {рюшечки} i:=x+25; j:=y+225; for l:=1 to 7 do begin Circle(i,j,r); i:=i+15; if (l<3) then j:=j+3 else if (l=3) then j:=j+1 else if (l=4) then j:=j-1 else j:=j-3; end;
   {платье} setpenwidth(2); DrawPie(x+66,y+190,r+80,70,108); FillPie(x+66,y+190,r+80,70,108); DrawPie(x+66,y+80,r+140,-68,-110); FillPie(x+66,y+80,r+140,-68,-110);
end;
 
var x,y,r:integer;
begin 
   SetWindowWidth(800); //ширина окна программы 
   SetWindowHeight(600); //высота окна программы
  var angle:=0;
  LockDrawing;
  Coordinate.Origin := Window.Center;
  repeat
    Window.Clear;
    angle += 5;
    Coordinate.Angle := angle;
   x:=-100; y:=-150; r:=10;  
   Doll(x,y,r);
     Redraw;
     Sleep(10);
  until False;
end.