Распечатать двоичное представление заданного вещественного числа в формате Extended

{$n+}
       Program n7;
       {
         Задача.  Распечатать двоичное представление заданного
                  вещественного числа в формате Extended.
       }
 
       Uses Crt;
 
       Type
         num_type = (extend, bits);
         vector = array [0..9] of byte;
         number = record
                 case num_type of
                   extend: (x: extended);
                   bits: (b: vector);
               end;
 
       Var
         z: number;
         j, k: word;
 
       Begin
         ClrScr;
 
         Write ('Ввелите вещественное число: ');
         ReadLn (z.x);
         WriteLn;
 
         WriteLn ('Десятичное представление: ', z.x);
         Write ('Двоичное представление: ');
         for j := 9 downto 0 do
           begin
             for k := 7 downto 0 do
               Write ((z.b [j] shr k) and 1);
             if j = 5
               then
                 begin
                   WriteLn;
                   Write ('':length ('Двоичное представление: '));
                 end;
           end;
         WriteLn;
         WriteLn ('Для завершения работы нажмите Enter');
         ReadLn;
       End.

uses System, System.Text;
begin
  var d : real := 123.321;
  var arr := BitConverter.GetBytes(d);
  var str := new StringBuilder(arr.Length * 2);
  foreach var b : byte in arr do str.Append(Convert.ToString(b, 2).PadLeft(8, '0'));
  writeln(str);
end.