Нарисовать мишку, создать анимацию

uses graphABC;
type mas= array [1..20,1..4] of integer;
var k: mas;
    i: byte;
    b: boolean;
    
procedure GenArr(var kk: mas);
var j: byte; v: 0..1;
begin
for j:=1 to 20 do
    begin
    kk[j,1]:=random(400)+50;
    kk[j,2]:=random(400)+50;
    v:=random(2);
    if v=0 then kk[j,3]:=1 else kk[j,3]:=-1;
    v:=random(2);
    if v=0 then kk[j,4]:=1 else kk[j,4]:=-1;
    end;
end;
 
procedure Zv(x,y: integer);
begin
setbrushcolor(clyellow);
circle(x,y,10);
setbrushcolor(clwhite);
circle(x-20,y,13);
circle(x+20,y,13);
circle(x,y-20,13);
circle(x,y+20,13);
end;
 
procedure Mish;
begin
setbrushcolor(clbrown);
rectangle(150,300,350,500);
circle(120,350,50);
circle(380,350,50);
circle(150,500,50);
circle(350,500,50);
circle(150,100,50);
circle(350,100,50);
ellipse(120,100,380,300);
setbrushcolor(clwhite);
circle(200,190,30);
circle(300,190,30);
setbrushcolor(clblack);
circle(205,190,15);
circle(295,190,15);
setbrushcolor(clwhite);
circle(205,190,5);
circle(295,190,5);
setbrushcolor(clbrown);
circle(250,250,60);
line(220,210,280,210);
line(220,210,250,260);
line(250,260,280,210);
floodfill(250,220,clblack);
end;
 
begin
setwindowsize(500,550);
lockdrawing;
GenArr(k);
b:=false;
repeat
clearwindow(clskyblue);
for i:=1 to 20 do
    begin
    Zv(k[i,1],k[i,2]);
    if (k[i,1]>450) or (k[i,1]<50)
       or (k[i,1]>450) or (k[i,1]<50)
          then k[i,3]:=k[i,3]*(-1);
    if (k[i,2]>500)
       or (k[i,2]<50)
          then k[i,4]:=k[i,4]*(-1);
    k[i,1]:=k[i,1]+k[i,3];
    k[i,2]:=k[i,2]+k[i,4];
    end;
Mish;
sleep(10);
redraw;
until b;
end.