А еще в операторе CASE можно использовать строки (в некоторых языках только перечислимые типы):
<div class='CALtop'>C/AL</div><div class='CAL'>
VAR s: string;
CASE s of
'Значение1': ...;
'Значение2': ...;
END;
</div>
А также использовать (только аккуратно) такой интересный прием:
<div class='CALtop'>C/AL</div><div class='CAL'>
VAR s: string;
i: integer;
CASE TRUE of
s = 'Значение': ...;
i > 5: ...;
END;
</div>