Синтез динамического изображения в графическом режиме. Паскаль.

[DSBM]

Привет, форумчане!
Дано задание:
>Создать программу, реализующую средствами графики языка программирования TurboPascal следующее динамическое изображение, базирующееся на задании предыдущей лабораторной работы: лестница перемещается справа налево, а утолщенная нижняя перекладина - за это же время - вверх.
Подскажите, как поднимать перекладину вверх?

{Made by SiD}
program DSBM;
uses graph, crt;
var dr, md: integer;
    i, x, y: byte;
    p:pointer;
    size:word;
begin
clrscr;
x:=succ(0);
y:=succ(0);
window(x, y, x+20, y+20);
clrscr;
gotoxy(6,2);
dr:=0;
md:=0;
initgraph(dr, md, '');

setcolor(15);
line(50,1,50,450);
line(100,1,100,450);
line(50,50,100,50);
line(50,100,100,100);
line(50,150,100,150);
line(50,200,100,200);
line(50,250,100,250);
line(50,300,100,300);
line(50,350,100,350);
line(50,400,100,400);

 size:=imagesize(50,0,100,450);
 getmem(p, size);
 getimage(50,0,100,450,p^);
  for i:=1 to 20 do
begin
ClearDevice;
putimage(50-i,10,p^,0);
delay(300);
end;

readkey;
end.

Заранее благодарю!