Задача на паскале

[Slevko]

Помогите с задачей пожалуйста

1. Начертите на экране 10 вложенных друг в друга прямоугольников.
2. С помощью динамической переменной осуществите перемещение заполненного синим цветом эллипса вертикально.

10 вложенных прямоугольников я сделал

program qwe;
Uses Graph, CRT;

var

d,r,e,xl,yl, x2,y2,dx,dy: Integer;

begin

d := Detect; InitGraph(d, r, ' ') ;

e := GraphResult; if e <> grOK then

WriteLn(GraphErrorMsg(e))

else

begin

dx := GetMaxX div 20;

dy := GetMaxY div 20;

for d := 0 to 9 do

Rectangle(d*dx,d*dy,GetMaxX-d*dx,GetMaxY-d*dy);

if ReadKey=#0 then d := ord(ReadKey);

CloseGraph

end

end.

помогите сделать 2 пункт
и если можно распишите команды)

[Slevko]

Помогите а