Передвижение нижней перекладины лестницы. Паскаль.

[DSBM]

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

Не могу поднять нижнюю перекладину.

По идее, можно еще один объект создать -эту перекладину, потом рисовать её все выше, на месте тонких перекладин. Только вот не знаю, как это сделать.

Исходник:

{Made by SiD}
program DSBM;
uses graph, crt;
var dr, md: integer;
    i, j, x, y: byte;
    p, z:pointer;
    size, secsize: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(100,1,100,450);
line(50,1,50,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 50 do begin
ClearDevice;
putimage(50-i,10,p^,0);
delay(300);
end;
readkey;
end.