Pascal/Turbo Pascal - ¿¿POr que pasa esto???error de rango

veamos tengo insertado el siguiente procedimiento
procedure opcionbuena(var buena:byte);
begin
{$i-}
menu(buena);
if (IOresult<>0) or (buena<=0) or (buena>8) then
repeat
writeln(\'Opcion incorrecta, introduce una opcion valida: \');
readln(buena)
until (ioresult=0) and (buena<=8) and (buena>0)
{$i+}
end;

he desactivado el error kn el $i, pero el problema ke m da que al meter un numero superior al rango permitido por byte(por ejemplo 4545) se m cierra i m da error de rango.

¿por que m pasa eso?? ¿como lo soluciono¿?¿

muichas graciasss

$I hace un chekeo por io de ficheros, si hay un overflow no te dice nada. Agarralo como string y convertilo con val. bytes.