Вывести на экран монитора преобразованное множество - Pascal

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

1. Ввести множество, запись или строку с помощью клавиатуры. 2. Вывести на экран монитора исходную запись, множество или строку. 3. Выполнить необходимые преобразования над исходным множеством, записью или строкой, а также выполнить необходимые вычисления. 4. Вывести на экран монитора преобразованное множество, запись или строку, а также вывести результаты вычислений. Задана запись с вариантами,имеющее одно поле длинной 4 байта (тип longlnt) получить значение каждого из 4 байт (тип Byte) составляющих это поле записи,по отдельности

Решение задачи: «Вывести на экран монитора преобразованное множество»

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

type
  Rec=record
    case integer of
    0: (l: longint);
    1: (b: array [0..3] of byte);
  end;
var
  r: Rec;
  i: integer;
begin
  r.l:=$deadbeef;
  for i:=0 to 3 do Write(r.b[i]:4); WriteLn;
end.

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

В данном коде объявлен тип данных Rec, который является записью (record) и содержит два поля: l типа longint (длинное целое число) и b типа array [0..3] of byte (массив из 4 байтов). Затем объявлена переменная r типа Rec, которая будет использоваться для хранения данных. Далее, в цикле от 0 до 3 (включительно), выводится на экран содержимое каждого байта массива b с помощью функции Write, при этом каждый байт выводится в 4-х шестнадцатеричных разрядах. А также инициализируется поле l значением $deadbeef (это шестнадцатеричное число, которое в десятичной системе равно -123456789).