Получение координат курсора при нажатии левой клавиши мыши - Free Pascal

Формулировка задачи:

Короче, чтоб долго тут не повествовать, объясните, почему не работает код:

                    Листинг программы
                
 
                        
                          
                    
uses mouse, crt;
begin
        initmouse;
        repeat
                if (getmousebuttons =  mouseleftbutton)  then
                        writeln(getmousex, ' ' , getmousey, ' ');
        until keypressed;
        donemouse;
end.

ХОЧУ: координаты курсора при нажатии левой клавиши мыши ПОЛУЧАЮ НА ДЕЛЕ: ничего иногда может вывести координаты, но длится это считанные секунды, дальше - тишина...

Решение задачи: «Получение координат курсора при нажатии левой клавиши мыши»

Листинг программы

uses mouse;
var
    cursor : tmouseevent;
begin
    initmouse;
    showmouse;
 
    repeat
        writeln(getmousebuttons, ' ', getmousex, ' ', getmousey);
        {while pollmouseevent(cursor) do
            getmouseevent(cursor);}
    until false;
 
    donemouse;
end.

Объяснение кода листинга программы

Подключение модуля mouse.
Объявление переменной cursor типа tmouseevent.
Инициализация модуля mouse.
Отображение курсора на экране.
Вход в цикл.
Вывод на экран информации о состоянии кнопок мыши и координатах курсора.
Вызов функции getmouseevent для получения следующего события мыши.
Проверка условия для выхода из цикла.
Завершение работы с модулем mouse.
Завершение работы с курсором.