Something

public class XY 
begin
   var x: integer; 
   var y: integer; 

   constructor XY();
   begin
   end;

   procedure setX(xx: integer);
   begin 
      x := xx;
  end;

  procedure setY(yy: integer);
  begin 
      y := yy;
  end;

  procedure move();
  begin 
    movemouse(x,y);
  end;

   function getX(): integer;
   begin 
      result := x;
   end;

   function getY(): integer;
   begin 
      result := y;
  end;

end;

var p:array [1..3] of XY;
begin
writeln('start');
p[0]:= new XY();
p[0] .setX(250);
p[0] .setY(250);
p[0].move();
p[0] .setX(350);
p[0] .setY(350);
p[0].move();
writeln('end');
end.