как-то так:

VAR
p_str:POINTER TO ARRAY [0..3] OF WORD;
END_VAR

--------------------------------------------------------
p_str:=ADR(str);

p_str^[0]:=ROL(p_str^[0],8);
p_str^[1]:=ROL(p_str^[1],8);
p_str^[2]:=ROL(p_str^[2],8);
p_str^[3]:=ROL(p_str^[3],8);

за исключением проверки на четность строки