a : dword;
b : word; (*старшее слово*)
с : word; (*младшее слово*)

b:=a\65536;
с:=a;

Ну или есть команды сдвига с вытеснением...