С помощью прерываний выводить мышь на экран а потом прятать - Pascal

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

Задание:Написать программу которая будет с помощью прерываний выводить мышь на экран а потом прятать Мое решение(неверное).

uses crt,dos;
Var Rg:Registers;
msActive:Boolean;
begin
 Procedure msReset;
 var B:Boolean;
    begin
    Rg.ax=00
    Intr($33,rg);
    msActive=(rg.bx=2)or(rg.bx=3);
    end;
 
 Procedure msShow;
 begin
 if msActive then
    begin
    Rg.AX:=01;
    Intr($33,rg);
    end;
 end;
 
 Procedure msHide;
 begin
 if msActive then
    begin
    Rg.AX:=02;
    Intr($33,rg);
    end;
 end;
end.

Вот пробовал сам сделать, но не работает, подскажите ошибку и помогите решить

Решение задачи: «С помощью прерываний выводить мышь на экран а потом прятать»

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

uses crt,dos;
Var Rg:Registers;
msActive:Boolean;
 
 Procedure msReset;
 var B:Boolean;
    begin
    Rg.ax:=00;
    Intr($33,rg);
    msActive:=(rg.bx=2)or(rg.bx=3);
    end;
 
 Procedure msShow;
 begin
 if msActive then
    begin
    Rg.AX:=01;
    Intr($33,rg);
    end;
 end;
 
 Procedure msHide;
 begin
 if msActive then
    begin
    Rg.AX:=02;
    Intr($33,rg);
    end;
    end;
 begin
 
end.

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

В начале кода подключаются необходимые библиотеки и регистры.
Далее объявляются переменные: Rg (регистры), msActive (логическое значение).
Затем определены три процедуры: msReset, msShow, msHide.
В процедуре msReset инициализируются регистры и с помощью прерывания $33 выводится мышь на экран.
В процедуре msShow проверяется значение переменной msActive. Если оно истинно, то с помощью прерывания $33 мышь отображается на экране.
В процедуре msHide также проверяется значение переменной msActive. Если оно истинно, то с помощью прерывания $33 мышь скрывается с экрана.
Код завершается без дополнительных действий.