Анимация: человек бежит и перепрыгмвает через барьер

program Animacia;
 
   uses graphabc;
 
    procedure man(x,y:integer);
begin
circle(x,y,30);
line(x,y+30,x-20,y+130);
line(x-20,y+130,x+20,y+170);
line(x+20,y+170,x-20,y+210);
line(x-20,y+130,x-20,y+170);
line(x-20,y+170,x-70,y+170);
line(x-5,y+50,x-40,y+70);
line(x-40,y+70,x-40,y+110);
line(x-5,y+50,x,y+70);
line(x,y+70,x+50,y+50);
sleep(90);
clearwindow;
 
circle(x+5,y-5,30);
line(x+5,y+25,x-15,y+125);
line(x-15,y+125,x+10,y+160);
line(x+10,y+160,x+20,y+200);
line(x-15,y+125,x-40,y+170);
line(x-40,y+170,x-80,y+190);
line(x,y+50,x-20,y+70);
line(x-20,y+70,x+10,y+100);
line(x,y+50,x+10,y+70);
line(x+10,y+70,x+50,y+90);
sleep(90);
clearwindow;
 
 
//типо прыжок
circle(x+5,y-5,30);
line(x+5,y+25,x-15,y+125);
line(x-15,y+125,x+10,y+120);
line(x-15,y+125,x+50,y+130);
line(x,y+50,x-20,y+70);
line(x-20,y+70,x+10,y+100);
line(x,y+50,x+10,y+70);
line(x+10,y+70,x+50,y+90);
sleep(30);
clearwindow;
end;
 
 
var x,y:integer;
begin
setwindowsize(800,300);
centerwindow;
x:=100;
y:=70;
repeat
clearwindow;
man(x,y);
x:=x+25;
until x>=windowwidth
end.