program new;

var
  LastPos, CurrentPos: TPoint;
  T: Boolean;

begin
  LastPos := Point(-1, -1);
  repeat
    GetMousePos(CurrentPos.x, CurrentPos.y);
    If CurrentPos <> LastPos Then
    Begin
      LastPos := CurrentPos;
      writeln(LastPos);
    End;
    If IsMouseButtonDown(mouse_Right) Then
    Begin
      While IsMouseButtonDown(mouse_Right) Do
        Wait(1);
      Writeln('MouseDown mouse_Right');
    End;
    If IsMouseButtonDown(mouse_Middle) Then
    Begin
      While IsMouseButtonDown(mouse_Middle) Do
        Wait(1);
      Writeln('MouseDown mouse_Middle');
    End;
    If IsMouseButtonDown(mouse_Left) Then
    Begin
      While IsMouseButtonDown(mouse_Left) Do
        Wait(1);
      Writeln('MouseDown mouse_Left');
    End;
  Until(false);
end.