Графика в Паскале (динамика), осуществить движение

[Вивандия]

это графика в Паскале (динамика)
дана окружность в центре экрана.
осуществить её движение с помощью стрелок
вправо и влево - окружность движется без изменения.
вверх - увеличивается
вниз - уменьшается.
окружность должна двигаться ЗАКРАШЕННОЙ!

вправо и влево я сделала, а вверх и вниз - не получается

Листинг программы.
program main;
uses GRAPH, crt;
const h=15;
var r,d,m,ckx,cky,xk,size,x,y: integer;p: pointer;c: char;
begin
r:=15;d:=detect;initgraph(d,m,'');setbkcolor(red);
ckx:=getmaxx div 2;
cky:=getmaxy div 2;
setcolor(blue);circle(ckx,cky,r);
setfillstyle(1,blue);floodfill(ckx,cky,blue);
x:=ckx-r;
y:=cky-r;
size:=imagesize(x,y,ckx+2*r,cky+2*r);
getmem(p,size);
getimage(x,y,ckx+2*r,cky+2*r,p^);
repeat
delay(10000);
c:=readkey;
if c=#0 then
        begin
        c:=readkey;
        setcolor(blue);
        case c of
        #27:
            begin
            closegraph;
            halt;
            end;
        #77:begin
        putimage(x,y,p^,1);
        x:=x+h;
        putimage(x,y,p^,1);
        end;
        #75:begin
        putimage(x,y,p^,1);
        x:=x-h;
        putimage(x,y,p^,1);
        end;
        #72:begin
        putimage(x,y,p^,1);
        y:=y-h;
        r:=r+h;
        freemem(p,size);
        size:=imagesize(x-r,y-r,x+r,y+r);
        getmem(p,size);
        getimage(x-r,y-r,x+r,y+r,p^);
        putimage(x,y,p^,1);
        end;
       { #80:begin
        putimage(x,y,p^,1);
        cky:=cky+h;
        r:=r-5;
        putimage(x,y,p^,1);
        end;
        end;
        setcolor(1);
        circle(ckx,cky,r);
        setfillstyle(1,blue);
        floodfill(ckx,cky,blue);
        }
        end;
        end;
        until c=#27;
        closegraph;
        freemem(p,size);
        end.



помогите, пожалуйста....

[InfStudent]

Что не получается конкретно, где ошибка или как проявляется конкретней пытались трассировать по шагам или как?

[Вивандия]

#72:begin
        putimage(x,y,p^,1);
        y:=y-h;
        r:=r+h;
        freemem(p,size);
        size:=imagesize(x-r,y-r,x+r,y+r);
        getmem(p,size);
        getimage(x-r,y-r,x+r,y+r,p^);
        putimage(x,y,p^,1);
        end;
       { #80:begin
        putimage(x,y,p^,1);
        cky:=cky+h;
        r:=r-5;
        putimage(x,y,p^,1);
        end;
        end;
        setcolor(1);
        circle(ckx,cky,r);
        setfillstyle(1,blue);
        floodfill(ckx,cky,blue);
        }
        end;
        end;
        until c=#27;
        closegraph;
        freemem(p,size);
        end.

этот кусочек не получается, не получается её двигать закрашенной. закрашивает не то, что нужно.
у меня не углублённый паскаль, я не все термины понимаю..

[InfStudent]

Пошагавая трассировка это режим когда Turbo Pascal выполняет программу по шагам. вызывается при помощи F7 или F6

[Вивандия]

спасибо, буду знать, хотя нам в вузе про это ничего не говорили...
нам Паскаль очень поверхностно дают.
я его вообще с нуля начала и до этого никогда не занималась программированием.

а Вы не знаете, как можно исправить эту от кусочек, чтобы всё правильно работало?
я просто с этой задачей уже три недели торчу...
последняя осталась у меня, даже курсовик почти доделала сама...

[InfStudent]

Да вся проблема что я Delphист ну в очень сложных случаях LabVIEWист)) Средствами рисования TP никогда не пользовался

[InfStudent]

вот здесь могут и TPшники тусоваться )http://www.delphisources.ru/forum/

[Вивандия]

спасибо, сейчас обращусь

[plaklog452]

floodfill - заливает всё до ближайшей границы указанным цветом
у вас он статичен на центре экрана, то есть закрашивается всё от центра экрана до ближайшей границы
если же изменять координаты "x" и "y" у функции floodfill(x,y,color) на ту же величину, на которую изменяется координаты центра круга, то всё будет нормально