Склонение существительных (строки) Опции

[-=BR@BUS=-]

Склонение существительных.
При склонении существительных мужского рода, оканчивающихся на -ок: кружок, масленок, брелок и т.д. буква о становится беглой гласной: кружка, масленком и т.д. Из этого правила есть исключения: 1) слова из трех букв: ток, сок и т.д.; 2) слова: скок ,блок, волок, восток, шток - и слова, основа которых оканчивается на такие сочетания бука: перескок, пищеблок, юго-восток и т.д.; 3) ряд слов-исключений, среди которых наиболее употребляемы следующие: брелок, щелок, войлок, челнок, зарок, срок, урок, знаток, поток, сток, артишок.
Из заданного текста выбрать слова на -ок и получить их в указанном падеже, падеж указывается соответствующей буквой в скобках непосредственно после слова.

Помогите... кто знает... хоть часть

[-=BR@BUS=-]

Тут нужно из введёного текста выбрать слово с окончаноем -ok и вывести это слово, вот у меня такая накидка

var
d,s:string;
q,c,i,p:byte;
begin
Writeln('Vvedite text');
Readln(s);
p:=pos('ok',s);
Writeln(p);
q:=0;
for i:=p downto length(' ') do
q:=q+1;
writeln(q);
c:=p-q;
d:=Copy(s,c,p-1);
writeln(d);
Readln;
end.

Но чего-то явно не хватает, подскажите...

Сообщение отредактировано: -=BR@BUS=- - 19.12.2006 22:19