перечисляемые типы

[zweina]

привет! задача следующая: Переменная W может принимать значения: степь, боль, тетрадь, дверь. Переменная P принимает значение падежа слова. Вывести на экран слово W в падеже P. Например, при W=степь и P=творит, надо вывести "степью".
я составила программу:

program padegy;
type
slovo=(step,bol,tetrad,dver);
padeg=(imen,rod,dat,vin,tvor,predl);
var
w:string;
begin
writeln('степь,боль,тетрадь,дверь');
writeln('выберите любое из вышеперечисленных слов!');
write('именительный(кто?что?)-');
readln(w);
writeln(родительный(кого?чего?)-',copy(w,1,length(w)-1),'и');
writeln(дательный(кому?чему?)-',copy(w,1,length(w)-1),'и');
writeln(винительный(кого?что?)-',copy(w,1,length(w)+0));
writeln(творительный(кем?чем?)-',copy(w,1,length(w)+1),'ю');
writeln(предложный(о ком?о чем?)-',copy(w,1,length(w)-1),'и');
readln;
end.

но преподаватель сказал: " в программе нужно использовать перечисляемый или интервальный тип...
просто описать его недостаточно....". подскажите, как написать правильно эту программу. Спасибо!



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.