var x, y, z: Byte;
x shr y and z = (x shr y) and z
↑あってますよね？