[www12]

помогите сделать кнопку вниз



program Map;
const step = 8;
var
x,y,key,i,j,hi,wi:integer;
imm : image;
begin
y:=0; x:=0;
imm:=loadImage('/map.jpg');
i:=GetImageHeight(imm);
j:=getImageWidth(imm);
wi:=GetWidth;
hi:=GetHeight;
repeat
key:=KeyToAction(GetKeyPressed); Delay(30);
if (key = GA_DOWN) and (y-step>=hi-i) then y:=y-step;
if (key = GA_UP) and (y+step<=0) then y:=y+step;
if (key = GA_RIGHT) and (x-step>=wi-j) then x:=x-step;
if (key = GA_LEFT) and (x+step<=0) then x:=x+step;
DrawImage(imm, x, y);
repaint; delay(20);
until false;
end.