Как реализовать в турбо паскале побитовые сдвиги.

[Moneo]

Есть 2 числа вида 00001101 и 00001011 нужно сделать логические сдвиги с выбором на сколько бит сдвигать и в какую сторону. Числа представлены в виде массивов А[i] и B[i]. Помогите пожалуйста.

[Alex Cones]

shl
shr

http://www.delphibasics.ru/

P.S.

Числа представлены в виде массивов А[i] и B[i].

О_о Извращение. Пишите свою процедуру.
Что-то типа

A[i]:=A[i+1];
A[i+1]:=A[i+2];

Только в цикле от 0 до длины массива

P.P.S. Но намного проще будет перевести их в число и двигать Shr\Shl