program blablabla;
var a:char;
begin
    readln(a);
    case chr(ord(a)) of
    'O': ...//вместо слова оpen символ "О";
    'C':... // здесь аналогично
    end;

end.

readln(a);// здесь ты вводишь open, create или еще что нибудь  
case a of
'Open':   ...         ;//за место многоточия вводишь нужное тебе выражение
'Create': ...         ;//или можешь здесь поставить оператор перехода goto на нужный блок операторов
end;