Из 4 в2 присваиванием, Помогите! Опции

[Вероника]

У меня есть задача я её решила(помогли) но препод сказал можно(нужно) проще!
Дано число А в системе с основанием 4 в формате string
Перевести в систему с основанием 2
Надо каждому числу присвоить число в соответствуещуй системе счисления:
(4)=(2)
0=00
1=01
2=10
3=11
А как это сделать я не знаю!
Помогите пожалуйста!

[volvo]

Перечитай еще раз - на экран там все выводится прямо в процессе преобразования...
Хотя, на самом деле, можно сделать ЕЩЕ проще:

procedure QuarToBin(s: string);
const
  q_b: array['0' .. '3'] of string[2] = { обрати внимание на индексы !!! }
    ('00', '01', '10', '11');
var
  i: integer;
begin
  { удаляем ведущие нули }
  while s[1] = '0' do delete(s, 1, 1);

  for i := 1 to length(s) do
    write( q_b[ s[i] ] ); { <-- А вот и вывод, кстати }
end;