program dave3g;

  type
    record_options = packed record
      a, b, c: Integer
    end;

  const
    imn = record_options [a : 1; b : 3; c : 4];

  var
    lt : Integer = 3;

begin
  case lt of
    imn.b   : WriteLn ('OK');
    otherwise WriteLn ('failed')
  end
end.
