Алгоритмы ветвления Опции

[Merlin]

Составить программу, позволяющую получить словесное описание отметок (1 – плохо, 2 – неудовлетворительно, 3 – удовлетворительно, 4 – хорошо, 5 – отлично).

Var x,y,Rez: real;
Znak: char;
Begin
Write(‘Введите первое число: ’);
Readln(x);
Write(‘Введите второе число: ’);
Readln(y);
Write(‘Введите символ арифметической операции: ’);
Readln(Znak);
Case Znak of
‘+’: Rez :=x+y;
‘-‘: Rez :=x-y;
‘*’: Rez :=x*y;
‘\’: Rez :=x\y;
else writeln(‘Недопустимый ввод!’);
writeln(‘Результат вычислений: ’, Rez:7:4);
end.

Что надо переделать в этой проге, она очень похожа на мою задачу ? А то у меня всё ошибка выскакивает unknown identifer