Анимация и управление клавишами изображением человечка (Графика, Паскаль)

[Женёк2011]

Здраствуйте!
Помогите пожалуйста! Мне нужно при нажатие одной клавиши чтобы человечек бегал а когда нажмешь другую клавишу то он пригает! вот две картинки бега

program zadacha;
uses crt, graphabc;
var x,y,n:integer;
begin
circle (X+300,y+100,30);
line (x+300,y+130,x+300,y+220);
line (x+300,y+150,x+320,y+180);
Ellipse (x+315,y+185,x+335,y+175);
line (x+300,y+220,x+305,y+250);
line (x+305,y+250,x+260,y+230);
ellipse (x+264,y+230,x+244,y+220);
line (x+300,y+220,x+280,y+250);
line (x+280,y+250,x+240,y+280);
ellipse (x+245,y+287,x+225,y+277);
end.

program zadacha;
uses crt, graphabc;
var x,y,n:integer;
begin
circle (X+300,y+100,30);
line (x+300,y+130,x+300,y+220);
line (x+300,y+150,x+320,y+180);
Ellipse (x+315,y+185,x+335,y+175);
line (x+300,y+220,x+305,y+250);
line (x+305,y+250,x+260,y+230);
ellipse (x+264,y+230,x+244,y+220);
line (x+300,y+220,x+280,y+250);
line (x+280,y+250,x+240,y+280);
ellipse (x+245,y+287,x+225,y+277);
end.

Зарание спосибо!!!


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.