внутри функции такого рода
function simbol1: udint; //имя функции и тип данных выхода
var_input //объявление входных переменных
inputrezhim : udint; //входная переменная

end_var

case inputrezhim of
0:
simbol1:=121;
1:
simbol1:=120;
2:
simbol1:=80;
end_case


end_function