Для начала - зачем вызывать эту строку в каждом цикле?
qef:=LockDevice(0);


А дальше - для чего при каждом принятом байте проверять результат?
Примите все по таймауту и разберите ответ.
Ну либо проверяйте на последний байт после принятия самого байта, а не до.
Например так:
p:=ADR(otvet)+count;
p^:=otvet_RB^.data;
if otvet[count] = 16#0A then
count:=0
else
count:=count+1;
END_IF;
А по событию count=0 - смотрите данные.