построение кадров

[Woodyy]

В рисованных мультфильмах иллюзия движения создаеться сменой кадров, каждый из которых фиксирует очередное положение движущегося объекта. используя этот принцип, получить мультфильм показывающий: о беге с барьерами. Построение отделных кадров выполнить на основе олимпийской символики.
Нарисовал бегущего человека, не могу нарисовать барьер помогите пожалуйста
program goblin;
uses graph,crt;
var gd,gm,i:integer; x,y:array[1..12]of integer;
begin
gd:=detect;
initgraph(gd,gm,'');
While not keypressed do
Begin
setColor(4);

x[1]:=450; y[1]:=250;
circle(x[1],y[1],10);
x[2]:=x[1];y[2]:=y[1]+10;
x[3]:=x[2];y[3]:=y[2]+5;
line(x[2],y[2],x[3],y[3]);
x[4]:=x[3];y[4]:=y[3]+50;
line(x[3],y[3],x[4],y[4]);
x[5]:=x[4]+20;y[5]:=y[3]+5;
line(x[3],y[3],x[5],y[5]);
x[6]:=x[3]+30;y[6]:=y[5]+20;
line(x[5],y[5],x[6],y[6]);
x[7]:=x[3]-10;y[7]:=y[5]-5;
line(x[3],y[3],x[7],y[7]);
x[8]:=x[7]-15;y[8]:=y[7];
line(x[7],y[7],x[8],y[8]);
x[9]:=x[4]+10;y[9]:=y[4]+25;
line(x[4],y[4],x[9],y[9]);
x[10]:=x[9]+30;y[10]:=y[9]+25;
line(x[9],y[9],x[10],y[10]);
x[11]:=x[4]-20;y[11]:=y[4]+25;
line(x[4],y[4],x[11],y[11]);
x[12]:=x[11];y[12]:=y[11]+20;
line(x[11],y[11],x[12],y[12]);
delay(100);
cleardevice;

x[1]:=450; y[1]:=255;
circle(x[1],y[1],10);
x[2]:=x[1];y[2]:=y[1]+10;
x[3]:=x[2];y[3]:=y[2]+5;
line(x[2],y[2],x[3],y[3]);
x[4]:=x[3];y[4]:=y[3]+50;
line(x[3],y[3],x[4],y[4]);
x[5]:=x[4]+20;y[5]:=y[3]+25;
line(x[3],y[3],x[5],y[5]);
x[6]:=x[3]-10;y[6]:=y[5]+5;
line(x[5],y[5],x[6],y[6]);
x[7]:=x[3]-10;y[7]:=y[5]-5;
line(x[3],y[3],x[7],y[7]);
x[8]:=x[7]-15;y[8]:=y[7];
line(x[7],y[7],x[8],y[8]);
x[9]:=x[4]+5;y[9]:=y[4]+25;
line(x[4],y[4],x[9],y[9]);
x[10]:=x[9]+5;y[10]:=y[9]+25;
line(x[9],y[9],x[10],y[10]);
x[11]:=x[4]-10;y[11]:=y[4]+25;
line(x[4],y[4],x[11],y[11]);
x[12]:=x[11]+10;y[12]:=y[11]+20;
line(x[11],y[11],x[12],y[12]);
delay(100);
cleardevice;
line(x[4],y[4],x[11],y[11]);
x[12]:=x[11]+10;y[12]:=y[11]+20;
line(x[11],y[11],x[12],y[12]);
delay(100);
cleardevice
end;
closegraph;
end.

[Woodyy]

вот пробовал сделать, помогите сделать нормально
program goblin;
uses graph,crt;
var gd,gm,i:integer; x,y:array[1..100000]of integer;
begin
gd:=detect;
initgraph(gd,gm,'');
While not keypressed do
Begin
setColor(4);

x[1]:=450; y[1]:=250;
circle(x[1],y[1],10);
x[2]:=x[1];y[2]:=y[1]+10;
x[3]:=x[2];y[3]:=y[2]+5;
line(x[2],y[2],x[3],y[3]);
x[4]:=x[3];y[4]:=y[3]+50;
line(x[3],y[3],x[4],y[4]);
x[5]:=x[4]+20;y[5]:=y[3]+5;
line(x[3],y[3],x[5],y[5]);
x[6]:=x[3]+30;y[6]:=y[5]+20;
line(x[5],y[5],x[6],y[6]);
x[7]:=x[3]-10;y[7]:=y[5]-5;
line(x[3],y[3],x[7],y[7]);
x[8]:=x[7]-15;y[8]:=y[7];
line(x[7],y[7],x[8],y[8]);
x[9]:=x[4]+10;y[9]:=y[4]+25;
line(x[4],y[4],x[9],y[9]);
x[10]:=x[9]+30;y[10]:=y[9]+25;
line(x[9],y[9],x[10],y[10]);
x[11]:=x[4]-20;y[11]:=y[4]+25;
line(x[4],y[4],x[11],y[11]);
x[12]:=x[11];y[12]:=y[11]+20;
line(x[11],y[11],x[12],y[12]);
delay(100);
cleardevice;



x[1]:=450; y[1]:=250;
circle(x[1],y[1],10);
x[2]:=x[1];y[2]:=y[1]+10;
x[3]:=x[2];y[3]:=y[2]+5;
line(x[2],y[2],x[3],y[3]);
x[4]:=x[3];y[4]:=y[3]+50;
line(x[3],y[3],x[4],y[4]);
x[5]:=x[4]+20;y[5]:=y[3]+5;
line(x[3],y[3],x[5],y[5]);
x[6]:=x[3]+30;y[6]:=y[5]+20;
line(x[5],y[5],x[6],y[6]);
x[7]:=x[3]-10;y[7]:=y[5]-5;
line(x[3],y[3],x[7],y[7]);
x[8]:=x[7]-15;y[8]:=y[7];
line(x[7],y[7],x[8],y[8]);
x[9]:=x[4]+10;y[9]:=y[4]+25;
line(x[4],y[4],x[9],y[9]);
x[10]:=x[9]+30;y[10]:=y[9]+25;
line(x[9],y[9],x[10],y[10]);
x[11]:=x[4]-20;y[11]:=y[4]+25;
line(x[4],y[4],x[11],y[11]);
x[12]:=x[11];y[12]:=y[11]+20;
line(x[11],y[11],x[12],y[12]);
delay(100);
cleardevice;

x[1]:=450; y[1]:=250;
circle(x[1],y[1],10);
x[2]:=x[1];y[2]:=y[1]+10;
x[3]:=x[2];y[3]:=y[2]+5;
line(x[2],y[2],x[3],y[3]);
x[4]:=x[3];y[4]:=y[3]+50;
line(x[3],y[3],x[4],y[4]);
x[5]:=x[4]+20;y[5]:=y[3]+5;
line(x[3],y[3],x[5],y[5]);
x[6]:=x[3]+30;y[6]:=y[5]+20;
line(x[5],y[5],x[6],y[6]);
x[7]:=x[3]-10;y[7]:=y[5]-5;
line(x[3],y[3],x[7],y[7]);
x[8]:=x[7]-15;y[8]:=y[7];
line(x[7],y[7],x[8],y[8]);
x[9]:=x[4]+10;y[9]:=y[4]+25;
line(x[4],y[4],x[9],y[9]);
x[10]:=x[9]+30;y[10]:=y[9]+25;
line(x[9],y[9],x[10],y[10]);
x[11]:=x[4]-20;y[11]:=y[4]+25;
line(x[4],y[4],x[11],y[11]);
x[12]:=x[11];y[12]:=y[11]+20;
line(x[11],y[11],x[12],y[12]);
delay(100);
cleardevice;

x[1]:=450; y[1]:=250;
circle(x[1],y[1],10);
x[2]:=x[1];y[2]:=y[1]+10;
x[3]:=x[2];y[3]:=y[2]+5;
line(x[2],y[2],x[3],y[3]);
x[4]:=x[3];y[4]:=y[3]+50;
line(x[3],y[3],x[4],y[4]);
x[5]:=x[4]+20;y[5]:=y[3]+5;
line(x[3],y[3],x[5],y[5]);
x[6]:=x[3]+30;y[6]:=y[5]+20;
line(x[5],y[5],x[6],y[6]);
x[7]:=x[3]-10;y[7]:=y[5]-5;
line(x[3],y[3],x[7],y[7]);
x[8]:=x[7]-15;y[8]:=y[7];
line(x[7],y[7],x[8],y[8]);
x[9]:=x[4]+10;y[9]:=y[4]+25;
line(x[4],y[4],x[9],y[9]);
x[10]:=x[9]+30;y[10]:=y[9]+25;
line(x[9],y[9],x[10],y[10]);
x[11]:=x[4]-20;y[11]:=y[4]+25;
line(x[4],y[4],x[11],y[11]);
x[12]:=x[11];y[12]:=y[11]+20;
line(x[11],y[11],x[12],y[12]);
delay(100);
cleardevice;


x[1]:=450; y[1]:=255;
circle(x[1],y[1],10);
x[2]:=x[1];y[2]:=y[1]+10;
x[3]:=x[2];y[3]:=y[2]+5;
line(x[2],y[2],x[3],y[3]);
x[4]:=x[3];y[4]:=y[3]+50;
line(x[3],y[3],x[4],y[4]);
x[5]:=x[4]+20;y[5]:=y[3]+25;
line(x[3],y[3],x[5],y[5]);
x[6]:=x[3]-10;y[6]:=y[5]+5;
line(x[5],y[5],x[6],y[6]);
x[7]:=x[3]-10;y[7]:=y[5]-5;
line(x[3],y[3],x[7],y[7]);
x[8]:=x[7]-15;y[8]:=y[7];
line(x[7],y[7],x[8],y[8]);
x[9]:=x[4]+5;y[9]:=y[4]+25;
line(x[4],y[4],x[9],y[9]);
x[10]:=x[9]+5;y[10]:=y[9]+25;
line(x[90],y[90],x[100],y[100]);
x[11]:=x[4]-10;y[11]:=y[4]+25;
line(4,4,11,11);
x[12]:=x[11];y[12]:=y[11]+20;
line(11,11,12,12);
delay(100);
cleardevice;
line(400,390,400,350);
line(500,350,500,310);
line(400,350,500,310);
end;
closegraph;
end.