Цитата:
WHILE SysComRead(ComHand, ADR(Buffer), SIZEOF(Buffer), 0) <> 0 DO ; END_WHILE
SysMemCpy(ADR(buf_otvet[0]),ADR(Buffer[0]),1);
SysMemCpy(ADR(buf_otvet[1]),ADR(Buffer[1]),1);
SysMemCpy(ADR(buf_otvet[2]),ADR(Buffer[2]),1);
SysMemCpy(ADR(buf_otvet[3]),ADR(Buffer[3]),1);
SysMemCpy(ADR(buf_otvet[4]),ADR(Buffer[4]),1);
SysMemCpy(ADR(buf_otvet[5]),ADR(Buffer[5]),1);
SysMemCpy(ADR(buf_otvet[6]),ADR(Buffer[6]),1);
SysMemCpy(ADR(buf_otvet[7]),ADR(Buffer[7]),1);
а почему Вас такой то код не устраивает?