program NewProject;
var
  x, y: integer;
const
  q = 0;
begin
  while q = 0 do
  begin
    if keyToAction(getKeyClicked) = GA_DOWN then
    begin
      y := y + 1;
    end;
    if keyToAction(getKeyClicked) = GA_UP then
    begin
      y := y - 1;
    end;
    if keyToAction(getKeyClicked) = GA_LEFT then
    begin
      x := x - 1;
    end;
    if keyToAction(getKeyClicked) = GA_RIGHT then
    begin
      x := x + 1;
    end;
    drawText("+",x,y);
    repaint;
  end;
end.