Оператор выбора CASE
В отличие от оператора if, оператор case позволяет выбрать один оператор не из двух, а из нескольких операторов.
ОБЩИЙ ВИД ОПЕРАТОРА
case <выражение> of
<список меток 1> : <оператор1>;
<список меток 2> : <оператор2>;
…………………………………..
<список меток N> : <операторN>
else
<оператор>
end;