в паскале нарисовать человека(голова-круг, тело -прямоугольник, и ноги- две палочки, рук ненадо) чтоб он двигался вправо не передвигая ногами

uses crt,graph;
var d,r:integer;
rx1,ry1,rx2,ry2,rad,cx,cy,lx1,ly1,lx2,ly2,lnx1,lny1,lnx2,lny2:integer;
Begin
d:=detect;
initgraph(d,r,' ');
rx1:=1; ry1:=50; rx2:=50; ry2:=150;
rad:=25; cx:=25; cy:=25;
lx1:=15; ly1:=150; lx2:=15; ly2:=250;
lnx1:=35; lny1:=150; lnx2:=35; lny2:=250;
repeat
cleardevice;
rectangle(rx1,ry1,rx2,ry2);
circle(cx,cy,rad);
line(lx1, ly1, lx2, ly2);
line(lnx1,lny1,lnx2,lny2);
inc(rx1); inc(rx2);
inc(cx);
inc(lx1); inc(lx2);
inc(lnx1); inc(lnx2);
delay(500);
until keypressed;
end.