Создать програму

чтобы Выводила слово "студент" в заданном пользователем падеже: N - именительный, R - родовой, и т. д

Var

s : char;

begin

readln (s);

case s of

'N':writeln ('Студент');

'R':writeln ('Студента');

'D':writeln ('Студентом');

'V':writeln ('Студента');

'T':writeln ('Студентом');

'P':writeln ('О студенте');

end;

end.