Упрощение функции...

[feLoNy]

выдает ошибку - несоответсвие типов невозможно преобразовать BOOL в REAL. че-то я не догоняю как исправить...
или задать константу

MRxhi: ARRAY[0..9] OF BYTE :=
            2#1000, 2#1100, 2#1110, 2#1111, 2#1111;

прокатит???

в итоге в array от 0..5 как я понял (догодался)
код следующий

plcoutbits := MRxhi [TRUNC(pw1) MOD 1000/10];
out1 := plcoutbits.0;
out2 := plcoutbits.1;
out3 := plcoutbits.2;
out4 := plcoutbits.3;

но ошибка та же
как быть???