Проблема с объявлением типов!

[maks2020]

type падеж=(им,род,дат,внн,твор,предл);
слово=(степь,боль,тетрадь,дверь);
var W:СЛОВО; р:падеж;
Напечатать слово w в падеже р и единственном числе (например, при w—степь и р = твор надо напечатать слово степью).

[ViktorR]

Решить эту задачу не сложно, а интересно
Очевидно, что необходимо организовать двухмерный массив с индексами перечисляемого типа:

{Поскольку в языке работает только латиница}
Type Tpadeg = (Imen, Rod, Dat, Vini, Tvor, Predl);
         Tslovo = (Step, Bol, Tetrad, Dver);
{Думаю, что элемент массива в 15 символов - достаточно}
          Tmas = array[Tpadeg, Tslovo] of string[15]; 
var W:Tslovo; р:Tpadeg;
{Массив надо заполнить аккуратно}
{В падежах я ...}
     mas : Tmas =(('Степь', '...', '...', '...', 'Степью', 'О степи'),
                         ('Боль', '...', '...', '...', '...', '...'),
                         ('Тетрадь', '...', '...', '...', '...', '...'),
                         ('Дверь', '...', '...', '...', '...', '...'));
begin
 {тут операторы для получения значений слова и падежа с клавиатуры..}
 writeln(mas[w,p]);
{...}
end.

Есть проблема преобразования, поскольку вводимый текст - кириллица

Как-то так вроде можно сделать ...