Word to bytes

[Валенок]

w:word;
lo,hi:byte;

lo:=word_to_byte(w);
hi:=word_to_byte(w/256);