Вывести строку-описание оценки, соответствующей числу K

Дано целое число K. 1 — «плохо», 2 — «неудовлетворительно», 3 — «удовлетвори- тельно», 4 — «хорошо», 5 — «отлично». Если K не лежит в диапазоне 1–5, то вывести строку «ошибка».

Program Case2;
Var
x:Integer;
Begin
ReadLn(x); 
Case x Of
1:WriteLn('«плохо»');
2:WriteLn('«неудовлетворительно»');
3:WriteLn('«удовлетворительно»');
4:WriteLn('«хорошо»');
5:WriteLn('«отлично»')
Else
WriteLn('«ошибка»');
End;
End.

автор: Sklyarov Sergej a.k.a. S9