Нарисовать движущийся квадрат - Turbo Pascal

uses crt,graph;
var x,y,c:integer;
    size:word;
    p:pointer;
begin
initgraph(x,y,'');
c:=1; //цвет 1=синий
repeat
x:=getmaxX div 2;//по вертикали
y:=15;
size:=ImageSize(x-15,y-15,x+15,y+15);//выделяем участок под квадрат
setcolor(c);//цвет линий
setfillstyle(1,c);//цвет заливки
bar(x-15,y-15,x+15,y+15); //закрашенный квадрат
getmem(p,size);//выделим память под рисунок
getimage(x-15,y-15,x+15,y+15,p^);//сохраним рисунок в буфер
cleardevice; //очистим экран
setcolor(14);//выведем сообщение желтым цветом
settextstyle(0,0,2);
outtextXY(10,10,'Exit any key');
while not keypressed and(y<getmaxY-30) do //пока не нажата клавиша и не низ экрана
 begin
  putimage(x,y,p^,1); //читайте HELP
  delay(10);
  putimage(x,y,p^,1);
  y:=y+5;
 end;
c:=c+1;//увеличим номер цвета
if c=16 then c:=1;//черный на синий
if c=8 then c:=9; //темно-серый на голубой
x:=15; //то же слева на право
y:=getmaxY div 2;
size:=ImageSize(x-15,y-15,x+15,y+15);{Єў*¤а*в 30е30}
setcolor(c);
setfillstyle(1,c);
bar(x-15,y-15,x+15,y+15);
getmem(p,size);
getimage(x-15,y-15,x+15,y+15,p^);
cleardevice;
setcolor(14);
settextstyle(0,0,2);
outtextXY(10,10,'Exit any key');
while not keypressed and(x<getmaxX-30) do
 begin
  putimage(x,y,p^,1);
  delay(10);
  putimage(x,y,p^,1);
  x:=x+5;
 end;
c:=c+1;
if c=16 then c:=1;
if c=8 then c:=9;
until keypressed;//нажатие любой клавиши=конец
freemem(p,size); //освободим память
end.