Слово в опр. падеже Опции

[Caries]

ПРивет. Дана задача примерно такого содержания:
Заданы 4 слова Тетрадь Боль Степь и Дверь. Человек выбирает слово и падеж, и нужно вывести ему слово в нужном падеже.
Я тут немного химичил, проблема вывести само слово, в мозгах чето заклинило, пишет что данный ти не выводится. вот код программы:

Код

Program Slova;
type padesh = (I,R,D,V,T,Pr);
slovo = (step, bol , tetrad, dver);
var w:slovo; p:padesh;wrd : char;pod:char;
stop :boolean;
begin
writeln;
writeln ('Viberete slovo');
readln(wrd);
case wrd of
'1' :w:=step;
'2' :w:=bol;
'3' :w:=tetrad;
'4' :w:=dver;
else
stop:=true;end;
writeln('viberete padesh');
readln(pod);
case pod  of
'i': p :=i;
'r': p :=r;
'd': p :=d;
'v': P :=v;
't': p :=t;
'p': p :=pr;
else writeln('vvedite pralno');end;
if p = i then writeln('slovo + okonchanie1');
if p = r then writeln('slovo + okonchanie2');
if p = d then writeln('slovo + okonchanie3');
if p = v then writeln('slovo + okonchanie4');
if p = t then writeln('slovo + okonchanie5');
if p = pr then writeln('slovo + okonchanie6');
end.

Если у кого то появятся решения лучшего моего - опишите плз.
Заранее спасибо.

Сообщение отредактировано: Caries - 23.02.2005 19:05