Оператор for. Перевод из 10 СС в двоичную - Pascal

Формулировка задачи:

Не знаю как с помощью цикла for записать данную программу. Подскажите, пожалуйста.

Решение задачи: «Оператор for. Перевод из 10 СС в двоичную»

Листинг программы

var
  i,a:    integer;
  bitset: set of byte absolute a;
begin
  for i:=SizeOf(a)*8-1 downto 0 do
    write(ord(i in bitset));
end.

Объяснение кода листинга программы

В данном коде используется оператор for для перебора элементов в наборе (set). На каждой итерации выводится значение элемента, соответствующего индексу i в наборе bitset.

Объявляются две переменные: i и a типа integer.
Третья переменная bitset объявляется как набор (set) из байтов, где размер набора равен абсолютному значению переменной a.
Запускается цикл for, который начинается с размера набора a, умноженного на 8 (для перевода из 10-ичной системы счисления в двоичную), и заканчивается нулевым индексом. На каждой итерации цикла выводится значение элемента, соответствующего индексу i в наборе bitset. Список действий:
Инициализировать переменные i и a.
Инициализировать переменную bitset как набор из байтов, где размер набора равен абсолютному значению переменной a.
Начать цикл for, который будет выполняться от размера набора a, умноженного на 8, до нуля.
На каждой итерации цикла выводить значение элемента, соответствующего индексу i в наборе bitset.
Завершить цикл for.