Проблема с прогой в строках

[faLek]

В начале исходного текста стоит заглавная буква русского алфавита для поиска с символом ':' (например, А. Далее идет словарь русских слов (прописными буквами), разделенных запятыми. После последнего слова должна стоять точка. Найти слова, в которые входит буква (прописная), соответствующая заданной, но не является ни первой, ни последней буквой слова.

var s:string;

 function Space(ch:char):boolean;
 const s=[' ', ',', '.', ':', ';', '!', '?', '"',' '];
 begin
 if ch in s then Space:=true else Space:=false;
 end;

 procedure words(s:string);
 var i:integer;
 slovo:string;
 begin
 for i:=1 to length(s) do
 begin
 if Space(s[i])=false then slovo:=slovo+s[i]
 else
 begin

 if slovo[1]=slovo[length(slovo)] then writeln(slovo);
 slovo:='';
 end;

 if i=length(s) ;
 end;

 end;
 begin
 readln(s);
 words(s);
 readln;
 end.

Плиз исправте ошибки и объясните дурню,как сделать чтобы не первую и последнюю букву,а любые др. были,Вообщем исправте все недостатки!

[Базиля]

Код вносите в спец. теги (на будущее).
Что-то с алгоритмом у вас вообще не все в порядке.
Для начала вам же надо каким-то образом отделить от всех слов в строке заглавную букву.
Далее же по условию у вас сказано:

соответствующая заданной, но не является ни первой, ни последней буквой слова.

у вас же по коду

if slovo[1]=slovo[length(slovo)] then

И что вы хотели сказать этим? Я вообще не понял:

как сделать чтобы не первую и последнюю букву,а любые др.

[faLek]

ну в том то и дело что вот написал общие черты и как-то не могу доехать как сделать не с заглавной,а с любой другой буквы(

[Базиля]

как-то не могу доехать как сделать не с заглавной,а с любой другой буквы(

Что сделать то?
И с какой тогда любой другой буквы? Выражайтесь конкретней.

[faLek]

Когда я буду тестировать программу,у меня должно искать слово ни по первой, ни по последней букве слова,как сменить код в таком случае?

[Базиля]

Для начала добавьте в код то что я описал выше, я даже повторюсь цитатой:

Для начала вам же надо каким-то образом отделить от всех слов в строке заглавную букву.

Далее сравниваете эту отделенную букву с первым и последним символом очередного слова из строки, все, вот и весь алгоритм.

P.S. Код не ваш чтоли?

[faLek]

Код мой,получилось что я сделал не то задание,там мне нужно чтобы слово искало по последней и заглавной букве.

[Базиля]

А тут берете ту же заглавную, но только уже смотрите по первой и последней букве. В чем проблема то?
Вам даже по условию сказано, как отделять ту самую заглавную от всех других букв в строке.

[faLek]

ну ясненько и тогда сё станет на свои места?

[Базиля]

Да, это и ест весь алгоритм вашей задачи, у вас по коду добавить пару строчек и все...
P.S. Все-таки возникает чувство что код не вашими ручками написан.... Ну вот не верю я, что человек не освоил строки, а при этом умеет пользоваться польз. процедурами и функциями.