#Паскаль турбо

[Рида]

нужно сделать чтобы человечек этот стоял и прыгал. помогите пожалуйста
uses graph,crt;
var
x,y:longint;
device,i,mode:integer;
ch:char;
Begin
device:=0;
initgraph(device,mode,'');
setwritemode(1);
setcolor(white);
x:=0;
y:=200;
while x<=getmaxX do
begin
setcolor(white);
circle(x,y,30);
circle(x+15,y-10,6);
circle(x+34,y,4);
line(x,y,x+Round(30*Sqrt(3)/2),y+Round(30/2));

for i:=0 to 20 do
begin
setcolor(4);
line(x+Round(30*Cos(Pi/4+Pi/20*i)+10),y-Round(30*Sin(Pi/4+Pi/20*i)),
x+Round(100*Cos(Pi/4+Pi/20*i)-20),y-Round(50*Sin(Pi/4+Pi/20*i)));
setcolor(white);
line(x,y+50,x,y+250);
end;
if x mod 2=0 then
begin
setcolor(white);
line(x,y+60,x-60,y+100);
line(x,y+60,x+60,y+100);
line(x-60,y+100,x-40,y+140);
line(x+60,y+100,x+100,y+60);
line(x,y+250,x-60,y+300);
line(x,y+250,x+60,y+300);
line(x-60,y+300,x-120,y+250);
line(x+60,y+300,x+60,y+370);
end
else
begin
line(x,y+250,x,y+390);
end;
delay(100);
line(x,y+50,x,y+250);
if x mod 2=0 then
begin
line(x,y+60,x-600,y+180);
line(x,y+60,x+60,y+100);
line(x-60,y+100,x-40,y+140);
line(x+60,y+100,x+100,y+60);
line(x,y+250,x-60,y+300);
line(x,y+250,x+60,y+300);
line(x-60,y+300,x-120,y+250);
line(x+60,y+300,x+60,y+370);
end
else
begin
line(x,y+250,x,y+390);
end;
setcolor(black);
circle(x,y,30);
circle(x+5+15,y-5-10,6);
circle(x+5+34,y-5,4);
line(x+5,y-5,x+5+Round(30*Sqrt(3)/2),y-5+Round(30/2));

for i:=0 to 20 do
line(x+5+Round(30*Cos(Pi/4+Pi/20*i)),y-5-Round(30*Sin(Pi/4+Pi/20*i)),
x+5+Round(40*Cos(Pi/4+Pi/20*i)),y-5-Round(40*Sin(Pi/4+Pi/20*i)));
cleardevice;
x:=x+13;
end;
closegraph;
readln;
end.

end.