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

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

дано задание: Программа для распечатки двоичного представления заданного вещественного числа в формате Extended. кое что нашел в инете но выдает ошибку: Program5.pas(10,18): Встречено 'case', а ожидался идентификатор --------------------------------------------

{$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.

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

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

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.

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

В начале кода подключаются необходимые пространства имен: System и System.Text.
Затем объявляются две переменные:
- d типа real со значением 123.321, которая представляет собой вещественное число, для которого необходимо получить двоичное представление;
- arr типа array of byte инициализируется при помощи метода BitConverter.GetBytes(d), который преобразует вещественное число в массив байтов.
Далее создается объект str типа StringBuilder, который будет использоваться для формирования строки с двоичным представлением числа. При создании объекта указывается исходная длина строки равная длине массива байтов умноженной на 2, чтобы учесть возможное заполнение строки нулями слева.
Затем в цикле foreach перебираются все байты из массива arr:
- каждый байт преобразуется в строку при помощи метода Convert.ToString(b, 2), который преобразует байт в двоичную строку;
- полученная строка дополняется слева нулями до 8 символов при помощи метода PadLeft(8, '0'), чтобы получить строку из 8 символов, которая будет добавляться в объект str.
В конце цикла в консоль выводится полученная строка при помощи метода writeln().