program NewProject;
var
  key, x, y: integer;

function fY(y: integer): integer;
begin
key =:getKeyClicked;
if keyToAction(key) = GA_DOWN then
  y := y + 1;
if keyToAction(key) = GA_UP then
  y := y - 1;
  end;
function fX(x: integer): integer;
begin
key =:getKeyClicked;
if keyToAction(key) = GA_LEFT then
  x := x - 1;
if keyToAction(key) = GA_RIGHT then
  x := x + 1;
end;
begin
  drawImage(loadImage('/icon.png'),fX,fY);
  repaint;
end.