of Byte; begin temp:= _bytes(data)[0]; _bytes(data)[0]:= _bytes(data)[1]; _bytes(data)[1]:= temp; end; begin procCall:= SwitchLowBytes; WriteLn(test); procCall(test); WriteLn(test); switch_low_bytes(test); WriteLn(test); end.