Вот пару задач дали.
Проблема в том, что их надо сделать на delphi
По мне, на С++ это сделать проще.

20.1 Создать программу с функциями упаковки/распаковки группы из 6 чисел диапазона 0..31 (00000..11111) в переменной типа longword (свободные разряды слева).

20.2 Задано целое число типа WORD. Поменять местами содержимое четных и нечетных разрядов в младшем байте. Алгоритм преобразования оформить в виде функции. Исходное число и результат вывести в двоичной и десятичной форме.

Заранее спасибо.