Двоично-десятичная форма, перевести в двоично-десятичную форму Опции

[Вероника]

Помогите пожалуйста!
Я даже толком не поняла задание но оно звучит так:
Исходная информация: натуральное число записано в виде строки десятичных цифр(можно предполагать, что оно размещается в формате longint).
Задание: перевести это число в двоично-десятичную форму и вывести в виде строки(каждый соответствует двум десятичным цифрам).
Подскажите пожалуйста я буду вам очень благодарна! Заранее спасибо!

[volvo]

{ Это - та функция, которую я делал раньше }
function get_bcd_visual(n: longint): string;
const
  quart: array['0' .. '9'] of string[4] =
    ('0000', '0001', '0010', '0011', '0100',
     '0101', '0110', '0111', '1000', '1001');
  delim: array[boolean] of string = ('',  ' ');
var
  s: string;
  b: boolean;
begin
  s := ''; b := true;
  while n > 0 do begin
    s := quart[chr(48 + (n mod 10))] + {delim[b] +} s;
    n := n div 10; b := not b;
  end;
  if not b then s := quart['0'] + s;
  get_bcd_visual := s;
end;

{ А вот это - то, что ты просила в предыдущем посте: }
function get_bcd(s: string): string;
const
  h_b: array[0 .. $F] of string[4] =
    ('0000', '0001', '0010', '0011',
     '0100', '0101', '0110', '0111',
     '1000', '1001', '1010', '1011',
     '1100', '1101', '1110', '1111');
var
  T, st: string;
  i, count, code: byte;
begin
  st := '';
  while (length(s) mod 8) <> 0 do s := '0' + s;
  repeat
    code := 0;
    for count := 1 to 2 do begin
      T := copy(s, 1, 4); delete(s, 1, 4);
      for i := 0 to $F do
        if h_b[i] = T then inc(code, i * (16 + (1 - Count)*15));
    end;
    st := st + chr(code);
  until s = '';
  get_bcd := st;
end;

begin
  writeln( get_bcd(get_bcd_visual(1234)) );
end.

Но опять же, учти, что в результате преобразования, например числа "1234" по тому алгоритму, что ты привела, получатся непечатаемые символы, и ты просто можешь чего-то не увидеть на экране, хотя сам результат преобразования будет правильным...