движение в паскале

[dongat]

вот моя программа это аркада вопрос почему поле движется вместе с мячиком?можете исправить ошибку пожалуйста

[dongat]

program betaproekt;
uses crt,graph;
var x,y:integer;
gd,gm:integer;
c:char;
procedure paint(x,y,cl:integer);
begin
setcolor(cl);
circle(x,y+50,10);
line(x-12,y+62,x+15,y+62);                      {«Ё*Ёп Ї®¤ и*аЁЄ®¬}
line(x-12,y+60,x-12,y+15); {«Ё*Ёп ўўҐае б«Ґў*}
line(x+15,y+40,x+15,y+60); {«Ё*Ёп ўўҐае бЇа*ў*}
line(x-12,y+15,x+118,y+15); {«Ё*Ёп ў«Ґў® ўўҐаег}
line(x+15,y+40,x+90,y+40);   {«Ё*Ёп ў«Ґў® ў*Ё§г}
line(x+90,y+40,x+90,y+100);  {«Ё*Ёп ў*Ё§ 1 б«Ґў*}
line(x+118,y+15,x+118,y+131);   {«Ё*Ёп ў*Ё§ 1 бЇа*ў*}
line(x+118,y+131,x+15,y+131);                           {«Ё*Ёп ўЇа*ў® б*Ё§г}
line(x+90,y+100,x-12,y+100);                            {«Ё*Ёп ўЇа*ў® ᢥаег}
line(x-12,y+100,x-12,y+160);                             {«Ё*Ёп ў*Ё§ 2 б«Ґў*}
line(x-12,y+160,x+180,y+160);
rectangle(x+180,y+160,x+200,y+140);
rectangle(x+200,y+160,x+220,y+120);
rectangle(x+220,y+160,x+240,y+100);
rectangle(x+240,y+160,x+260,y+100);
line(x+260,y+160,x+280,y+160);
rectangle(x+280,y+160,x+300,y+100);
line(x+300,y+100,x+320,y+160);
line(x+320,y+160,x+300,y+160);

end;
begin
gd:=detect;
InitGraph(gd,gm,'d:\SchoolPak\pak\bp\bgi');
x:=50;
y:=50;
repeat
paint(x,y,white);
c:=readkey;
if c=chr(0) then begin paint(x,y,black);
c:=readkey;
if c=chr(72) then y:=y-1;
if c=chr(75) then x:=x-1;
if c=chr(77) then x:=x+1;
if c=chr(80) then y:=y+1;
paint(x,y,white);
end;
until c=chr(27);
CloseGraph;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[dongat]

на страшные символы не обращайте внимание это комментарии