Движение квадрата вверх, вниз, вправо, влево при нажатии соответствующих клавиш

Program project;
Uses graphABC;
Const Image_1='123.bmp';  
Var
p:Picture;
procedure klavisha(key:integer);
Var
x,y:integer;
Begin
if key=VK_Up then y:=y-50;
if key=VK_Down then y:=y+10
if key=VK_Left then x:=x-10;
if key=Vk_Right then x:=x+10;
end;
procedure player;
Begin
SetBrushColor(clRed);
Rectangle(100,700,150,750);
end;
Begin
p:=Picture.Create(Image_1);
p.Load(Image_1);
p.Draw(1,1);
Rectangle(0,0,150,50);
Rectangle(1800,0,1450,50);
Begin
SetBrushColor(clYellow);
Rectangle(100,150,800,200);
Rectangle(1000,150,1500,200);
Rectangle(50,300,500,350);
Rectangle(700,300,1400,350);
Rectangle(200,450,750,500);
Rectangle(950,450,1550,500);
Rectangle(80,600,600,650);
Rectangle(800,600,1450,650);
SetBrushColor(clGreen);
Rectangle(0,750,1600,900);
Redraw;
end;
end.

Uses graphABC;
 
const
  image_1='123.bmp';
  dx = 10;
  dy = 10;
 
var
  p := New Picture(Image_1);
  x := 0;
  y := 0;
 
procedure update;
begin
  Window.Clear;
 
  SetBrushColor(clYellow);
  Rectangle(100,150,800,200);
  Rectangle(1000,150,1500,200);
  Rectangle(50,300,500,350);
  Rectangle(700,300,1400,350);
  Rectangle(200,450,750,500);
  Rectangle(950,450,1550,500);
  Rectangle(80,600,600,650);
  Rectangle(800,600,1450,650);
  SetBrushColor(clGreen);
  Rectangle(0,750,1600,900);
 
  p.Draw(x,y);
  
  Redraw;
end;
 
procedure klavisha(key:integer);
begin
  if key=VK_Up then y-=dy;
  if key=VK_Down then y+=dy;
  if key=VK_Left then x-=dx;
  if key=Vk_Right then x+=dx;
  update;
end;
 
begin
  OnKeyDown := klavisha;
  LockDrawing;
  update;
end.