类型tposrange = 0..32; tstateresult = 0..1;函数getBitsate（来源：整数； pos：tposrange）：tstateresult;开始结果：=（（源和（1 shl pos））shr pos）;结尾;
