Напечатать заданное слово в единственном числе в заданном падеже - Pascal

Формулировка задачи:

Нужно написать программу: в разделе CONST задано существительное 3 склонения типа боль, степь, тетрадь и т.д. Напечатать заданное слово в единственном числе в заданном падеже Р. Вроде бы все легко, но есть условия: создать через case, не использовать delete. Надеюсь поможете, заранее спасибо

Решение задачи: «Напечатать заданное слово в единственном числе в заданном падеже»

Листинг программы

  2,3,6: s[length(s)]:='и';
  ...
  end;
  if gramCase=6 then Write('о ');
  ...

Объяснение кода листинга программы

Создается массив s и происходит изменение последнего символа этого массива на букву и.
...
Также если значение переменной gramCase равно 6, то происходит вывод строки о.