Перевод символов в двоичный код - Turbo Pascal

По введенному символу установить в каких позициях его двоичного кода записаны нули.

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

var
  c: Char;
  b: ShortInt absolute c;
...
  for i := 7 downto 0 do begin
    if b >= 0 then Write(' ', i);
    b := b shl 1;
  end;

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

В данном коде происходит перевод символа в двоичный код.

Переменная c представляет собой символ, который нужно перевести в двоичный код.
Переменная b является коротким целым числом (ShortInt), которое представляет собой абсолютный значение символа c.
Затем следует цикл for, который начинается с индекса 7 и продолжается до 0.
Внутри цикла проверяется условие if b >= 0 then Write(' ', i). Если значение переменной b больше или равно нулю, то на экран выводится пробел с индексом i.
После этого переменная b сдвигается вправо на 1 бит с помощью операции b := b shl 1.