Запись с вариантами

program Project1;
 
type
  (*Тип, задающий вариантную запись.*)
  TRec = record
    case Byte of
      0 : (
        Bln1 : Boolean;
        Bln2 : Boolean;
      );
      1 : (
        Byte1 : Byte;
        Byte2 : Byte;
      );
  end;
 
(*Либо в такой форме:*)
(*
  TRec = record
    case Byte of
      0 : ( Bln1, Bln2 : Boolean; );
      1 : ( Byte1, Byte2 : Byte; );
  end;
*)
 
(*Функция для показа логического значения в строковом виде.*)
function BoolToStr(const aBool : Boolean) : String;
begin
  if aBool then
    BoolToStr := 'True'
  else
    BoolToStr := 'False'
  ;
end;
 
var
  (*Переменная, являющаяся вариантной записью.*)
  VRec : TRec;
  Bi : Integer;
  Bs : String;
begin
  repeat
    Writeln('Задайте логические значения. Ложь = 0, Истина <> 0:');
 
    Write('Bln1 = ');
    Readln(Bi);
    if Bi = 0 then
      VRec.Bln1 := False
    else
      VRec.Bln1 := True
    ;
    Bs := BoolToStr(VRec.Bln1);
    Writeln('Вы задали: Bln1 = ', Bs);
 
    Write('Bln2 = ');
    Readln(Bi);
    if Bi = 0 then
      VRec.Bln2 := False
    else
      VRec.Bln2 := True
    ;
    Bs := BoolToStr(VRec.Bln2);
    Writeln('Вы задали: Bln2 = ', Bs);
 
    Writeln('В результате преобразования в тип Byte:');
 
    Bs := BoolToStr(VRec.Bln1);
    Writeln('Bln1 = ', Bs, ' -> ', VRec.Byte1);
    Bs := BoolToStr(VRec.Bln2);
    Writeln('Bln2 = ', Bs, ' -> ', VRec.Byte2);
 
    Writeln('Повторить - Enter. Выход - любой символ и Enter.');
    Readln(Bs);
  until Bs <> '';
end.