"Ағаш шарбақты бояу" жобасында қандай компоненттер қолданған ?

Параграф 5.2 Алгоритм құру тақырыбы бойынша
Тез жауабы керек еді!

Var
  dc:set of char;
  s1,s2:string;
  i:integer;
begin
  dc:=['A'..'D','a'..'d'];
  s1:='То avoid the impression of the tail wagging the dog, '+
    'the president cannot be seen bending to the wishes of a minority.';
  s2:='';
  for i:=1 to length(s1) do
    if not(s1[i] in dc) then s2:=s2+s1[i];
  Writeln('Исходная строка: ',s1);
  s1:=s2;
  Writeln('Результирующая строка: ',s1)
end.

Тестовое решение:
Исходная строка: То avoid the impression of the tail wagging the dog, the president cannot be seen bending to the wishes of a minority.
Результирующая строка: То voi the impression of the til wgging the og, the presient nnot e seen ening to the wishes of  minority.

Для перевода из двоичной в шестнадцатеричный надо код разделить на тетрады (на группы по 4 цифры):
0101 1101 1000 1010 1010 1111 0010 1010
Если слева недостаточно цифр до тетрады, то слева добавляем нули.
Далее переводим тетрады в шестнадцатеричный код с таблицы:
0000 => 0        0001 => 1        0010 => 2        0011 => 3        0100 => 4
0101 => 5        0110 => 6        0111 => 7        1000 => 8        1001 => 9
1010 => A       1011 => B        1100 => C       1101 => D        1110 => E
1111 => F
0101 1101 1000 1010 1010 1111 0010 1010 = 5D8AAF2A

Для перевода в восьмеричный код делаем аналогично, только на двоичный код делим на группы по 3 цифры:
001 011 101 100 010 101 010 111 100 101 010
И также если не хватает до 3-ех цифр, то слева добавляем нули.
Затем переводим по аналогичной таблице:
000 => 0      001 => 1      010 => 2      011 => 3
100 => 4      101 => 5      110 => 6      111 => 7
001 011 101 100 010 101 010 111 100 101 010 = 13542527452