Перевод числа в двоичную систему

[lord2012]

помогите с программой:
В массиве Х[0..9] чисел типа short обработать каждое число
согласно условиям:Поменять местами 1 и 3 биты с 4 и 6 битами каждого числа. Создается рандомный массив из которого берутся числа переводятся в двоичную систему и меняется 1 и 4; 3 и 6 биты например: число 3327
перевели в двоиную 110011111111 переставили биты 011110111111 переводим в десятичную 1983 и записать эти элементы в массив

[Smitt&Wesson]

Разряды в двоичной системе исчисления нумеруются справа налево так как старшие разряды малых чисел могут быть равными 0.
Число 110011111111, после преобразования, будет выглядеть так же как и исходное при заданных условиях обмена.
Число 110010111010 примет вид 110010010111. Т.е. 3258 преобразуется в 3223.

[denisbrain]

Сообщение от Smitt&Wesson

Разряды в двоичной системе исчисления нумеруются справа налево так как старшие разряды малых чисел могут быть равными 0.
Число 110011111111, после преобразования, будет выглядеть так же как и исходное при заданных условиях обмена.
Число 110010111010 примет вид 110010010111. Т.е. 3258 преобразуется в 3223.

функция перевода в двоичную систему счисления с поддержкой формата числа

function IntToBin(Value:integer;FormatStr:string='0'):string; двоичную систему
const
   stroka:string='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; // список символов используемых в качестве чисел; максимальная строка 37 знаков
   var
     s:String;   { временная переменная}
     m:longint;  { временная переменная для целой части}
     n,l:real;  { временная переменная}
     r,i:integer;
     rdec:integer;
begin
    rdec:=2;
     n:=Value;
     r:=rdec;
     s:=''; { временная переменная  для вывода в строковом типе}
     m:=trunc(n);   { целая часть числа}
     repeat
        s:=stroka[(m mod r)+1]+s; { остаток от деления на rdec записываем  при 8 mod 3 = 8-(3*2)= 8-6=2}
        m:=m div r; { целочисленной деление  8 div 3 = trunc(8/3)=trunc(2.666666)=2}
     until m=0;    { продолжаем пока не 0}
     s:=formatfloat(FormatStr,strtoint(s));
     result:=s;
end;




function FromDec(Value:integer;rdec:integer):string; // функция переводит Value:real в rdec - систему счисления
   var
     s:String;   { временная переменная}
     m:longint;  { временная переменная для целой части}
     n,l:real;  { временная переменная}
     r,i:integer;
begin
     n:=Value;
     r:=rdec;
     s:=''; { временная переменная  для вывода в строковом типе}
     m:=trunc(n);   { целая часть числа}
     repeat
        s:=stroka[(m mod r)+1]+s; { остаток от деления на rdec записываем  при 8 mod 3 = 8-(3*2)= 8-6=2}
        m:=m div r; { целочисленной деление  8 div 3 = trunc(8/3)=trunc(2.666666)=2}
     until m=0;    { продолжаем пока не 0}
     l:=frac(n); { получаем часть числа полсле запятой}
     result:=s;
end;
{ перевод из любого числа в десятичные }
  function ToDec(Value:string;Rdec:integer):integer; { ToDec перевод из StrtoReal из Rdec системы (10,8,2)  } {пример ToDec('ABC',16)}
  var
     i,p:longint; {}
     m:integer; { временная переменная }
     n:string;
     R:integer;
  begin
     n:=value;
     r:=rdec;
     m:=0;
     p:=length(n)+1; { p=длине тектса }
        for i:=1 to length(n) do
          if i<>p then
            if i<p then
              m:=m+round((pos(n[i],stroka)-1)*power(r,p-i-1));  // ABC  (11*16^3)+(12*16^2)+(13*16^3)
           result:=m;
  end;

как вариант решение чтоб не особо напрягаться
взято с
http://netsoftware.ucoz.ru/news/prog.../2012-03-01-17
пример программы на дельфи
http://netsoftware.ucoz.ru/sistemy_schislenija.zip