В старом Паскале были записи с вариантами (использовался оператор CASE):
## Код:
```
entry = RECORD
author, title: STRING;
year: INTEGER;
CASE tag: entry OF
book: (publisher, cyty: STRING);
magazine:(magName: STRING; volume, issue: INTEGER)
END;
VAR reflist: entry;
BEGIN
reflist.tag := book;
reflist.cyty:= 'NEWYORK';
...
reflist.tag :=magazine;
reflist.volume:= 5;
```

В КП есть ли что-то подобное записи с вариантами?