Анимация:кошка гонится за мышкой

uses GraphABC;
var
x,y:integer;
begin
setwindowsize(800,700);
SetBrushColor(clorange); 
ellipse(100,500,350,600); //туловище кота
ellipse(300,560,370,480); //голова кота
//ноги
ellipse(120,550,140,650); 
ellipse(280,550,300,650); 
ellipse(140,550,160,650); 
ellipse(300,550,320,650); 
//лапы
ellipse(305,635,335,655); 
ellipse(285,635,315,655); 
ellipse(145,635,175,655); 
ellipse(125,635,155,655); 
//уши кота
line(310,490,325,460); 
line(325,460,335,480);
line(335,480,345,460);
 line(345,460,355,488);
 //глаза кота
 SetBrushColor(clgreen); 
 ellipse(320,510,330,500);
  ellipse(345,510,355,500);
  line(340,535,350,525);
      line(340,535,330,525);
      //усы
        line(335,537,303,537);
        line(335,540,313,540);
         line(335,543,323,543);
            line(350,537,383,537);
              line(350,540,373,540);
                    line(350,543,363,543);
                    //хвост кота
                    line(120,543,30,573);
                    line(120,543,30,583);
                    line(30,573,30,583);
                    SetBrushColor(clgray); 
                    ellipse(400,590,500,640); //туловище мышки
                    ellipse(490,590,530,620); //голова мышки
                    //ноги мышки
                    ellipse(420,620,430,650);
                    ellipse(470,620,480,650);
                     ellipse(432,620,442,650);
                      ellipse(482,620,492,650);
                      //лапы мышки
                    ellipse(422,643,435,653);
                    ellipse(472,643,485,653);
                     ellipse(434,643,448,653);
                      ellipse(484,643,498,653);
                    //ушко мышки
                    ellipse(495,580,510,600);
                    setbrushcolor(clblack);
                    ellipse(510,597,520,605); //глаз мышки
                    line(400,610,360,650);
                    line(520,610,510,630);
                    line(520,610,525,630);
                    line(520,610,518,630);
 
end.

uses
  GraphABC;
 
var
  x, y: integer;
 
begin
  setwindowsize(800, 700);
  
  lockdrawing;
  x := 0;
  while x < 700 do 
  begin
    ClearWindow;
    SetBrushColor(clorange); 
    ellipse(x + 100, 500, x + 350, 600); //туловище кота
    ellipse(x + 300, 560, x + 370, 480); //голова кота
    //ноги
    ellipse(x + 120+round(5*sin(x/3)), 550, x + 140+round(5*sin(x/3)), 650); 
    ellipse(x + 280+round(5*sin(x/3)), 550, x + 300+round(5*sin(x/3)), 650); 
    ellipse(x + 140+round(5*sin(x/6)), 550, x + 160+round(5*sin(x/6)), 650); 
    ellipse(x + 300+round(5*sin(x/6)), 550, x + 320+round(5*sin(x/6)), 650); 
    //лапы
    ellipse(x + 305+round(5*sin(x/6)), 635, x + 335+round(5*sin(x/6)), 655); 
    ellipse(x + 285+round(5*sin(x/3)), 635, x + 315+round(5*sin(x/3)), 655); 
    ellipse(x + 145+round(5*sin(x/6)), 635, x + 175+round(5*sin(x/6)), 655); 
    ellipse(x + 125+round(5*sin(x/3)), 635, x + 155+round(5*sin(x/3)), 655); 
    //уши кота
    line(x + 310, 490, x + 325, 460); 
    line(x + 325, 460, x + 335, 480);
    line(x + 335, 480, x + 345, 460);
    line(x + 345, 460, x + 355, 488);
    //глаза кота
    SetBrushColor(clgreen); 
    ellipse(x + 320, 510, x + 330, 500);
    ellipse(x + 345, 510, x + 355, 500);
    line(x + 340, 535, x + 350, 525);
    line(x + 340, 535, x + 330, 525);
      //усы
    line(x + 335, 537, x + 303, 537+round(3*sin(x/3)));
    line(x + 335, 540, x + 313, 540+round(3*sin(x/3)));
    line(x + 335, 543, x + 323, 543+round(3*sin(x/3)));
    line(x + 350, 537, x + 383, 537+round(3*sin(x/3)));
    line(x + 350, 540, x + 373, 540+round(3*sin(x/3)));
    line(x + 350, 543, x + 363, 543+round(3*sin(x/3)));
                    //хвост кота
    line(x + 120, 543, x + 30, 573+round(15*sin(x/3)));
    line(x + 120, 543, x + 30, 583+round(15*sin(x/3)));
    line(x + 30, 573+round(15*sin(x/3)), x + 30, 583+round(15*sin(x/3)));
    SetBrushColor(clgray); 
    ellipse(x + 400, 590, x + 500, 640); //туловище мышки
    ellipse(x + 490, 590, x + 530, 620); //голова мышки
                    //ноги мышки
    ellipse(x + 420+round(5*sin(x/3)), 620, x + 430+round(5*sin(x/3)), 650);
    ellipse(x + 470+round(5*sin(x/3)), 620, x + 480+round(5*sin(x/3)), 650);
    ellipse(x + 432+round(5*sin(x/6)), 620, x + 442+round(5*sin(x/6)), 650);
    ellipse(x + 482+round(5*sin(x/6)), 620, x + 492+round(5*sin(x/6)), 650);
                      //лапы мышки
    ellipse(x + 422+round(5*sin(x/3)), 643, x + 435+round(5*sin(x/3)), 653);
    ellipse(x + 472+round(5*sin(x/3)), 643, x + 485+round(5*sin(x/3)), 653);
    ellipse(x + 434+round(5*sin(x/6)), 643, x + 448+round(5*sin(x/6)), 653);
    ellipse(x + 484+round(5*sin(x/6)), 643, x + 498+round(5*sin(x/6)), 653);
                    //ушко мышки
    ellipse(x + 495, 580, x + 510, 600);
    setbrushcolor(clblack);
    ellipse(x + 510, 597, x + 520, 605); //глаз мышки
    line(x + 400, 610, x + 360, 650-round(10*sin(x/3)));
    line(x + 520, 610, x + 510, 630);
    line(x + 520, 610, x + 525, 630);
    line(x + 520, 610, x + 518, 630);
    
    redraw;
    x += 3;
  end;
  
end.