Fix types according to

https://gitlab.com/freepascal.org/fpc/source/-/commit/38fda54ec6f5031a3d3d9dfdead3b4f3d3f0d4a2#note_2840311283

packages/rtl-console/src/unix/keyboard.pp

@@ -2273,7 +2273,7 @@ var
 
     procedure DecodeAndPushWin32Key(const store: array of AnsiChar; arrayind: byte);
 
-      function VKToScanCode(vk: Word): Byte;
+      function VKToScanCode(vk: Word): Word;
       begin
         case vk of
           // Standard keys
@@ -2328,7 +2328,7 @@ var
       i, p_idx, code: Integer;
       st: string;
       ch: AnsiChar;
-      ScanCode: Byte;
+      ScanCode: Word;
       k: TEnhancedKeyEvent;
     begin
       // 1. Parse the parameters: Vk;Sc;Uc;Kd;Cs;Rc