Pascal/Turbo Pascal - CapsLock en Pascal

program capslock;

uses crt;

var

      keyboard : byte absolute $0040:$0017;

      regs : registers;

     encender : boolean;

begin

          encender = true;

          if encender then

               keyboard := keyboard or $40

          else

                  keyboard := keyboard and $BF;

           FillChar (regs, SizeOf(regs), 0);

           regs.ah := $01;

           Intr ($16, regs);

end.

{La causa del error la puedes apreciar comparando tu código con este corregido espero esto te ayude}

program capslock;

uses crt, dos;

var

keyboard : byte absolute $0040:$0017;

regs : registers;

encender : boolean;

begin

encender := true;

if encender then

keyboard := keyboard or $40

else

keyboard := keyboard and $BF;

FillChar (regs, SizeOf(regs), 0);

regs.ah := $01;

Intr ($16, regs);

end.