Функция для представления целых чисел в двоичной системе счисления

function Int2Bin (value: cardinal; i:byte): shortstring;
//Преобразование целого числа в двоичную строку
//i-длина строки, которую выдает функция
begin
result:='';
while (value>0) do
begin
if ((value and 1)=1) then result:='1'+result
else result:='0'+result;
value:=value shr 1;
end;
if result='' then result:='0';
while i>length(result) do
result:='0'+result;
end;

1. РГР 4
2. Ректификационная установка.
3. Статический режим установки