Написать код программы на Паскаль либо на другом языке

Нужен код программы который шифрует текст используя маршрутную перестановку с использованием шифрующей таблицы 6х4. Маршрут по горизонтали, начиная с левого верхнего угла, поочередно слева направо и справа налево.  

Пример: будем вписывать исходное сообщение в прямоугольную таблицу по горизонтали,

начиная с левого верхнего угла, поочередно слева направо и справа налево. Выписывать

сообщение будем по вертикали, начиная с верхнего правого угла и двигаясь поочередно сверху

вниз и снизу вверх.

Исходный текст: 

ПРИМЕРМАРШРУТНОЙПЕРЕСТАНОВКИ

Используя прямоугольник размера 4х7, получим следующий шифротекст: МАСТАЕРРЕШРНОЕРМИУПВКЙТРПНОИ

П Р И М Е Р М

Н Т У Р Ш Р А

О Й П Е Р Е С

И К В О Н А Т