Обработка строк в среде TP

[Mari.Prosto Mari]

Помогите, очень прошу, пожалйуста!!!!!!!!!!!!

Создайте программу, которая находит слово «мир» в данной строке.

[Serge_Bliznykov]

задание абсолютно "мутное"...

 WriteLn('Введите строку: ');
 Readln(s);
 if Pos('мир',s)>0 then 
   WriteLn('Слово МИР есть в строке, начиная с позиции ',Pos('мир',s))
 else 
   WriteLn('Не нашли слово МИР в Вашей строке');

Примечания.
1) искать слово мир будет только строчными буквами
2) в слове умиротворённый слово мир тоже будет найдено...

[_-Re@l-_]

дак тогда можно было бы написать так:

if Pos(' мир ',s)>0 then 
...

То есть перед и после слова "мир" в коде нужно поставить пробелы

[Serge_Bliznykov]

То есть перед и после слова "мир" в коде нужно поставить пробелы

Как вариант, да, можно.
Ну и ещё, к ведённой строке добавить пробел вначале и пробел в конце (это чтобы нашлось слово "мир", если оно вначале строки или в конце строки.

А ещё можно перевести всю строчку в один регистр (хоть строчные буквы, хоть прописные, неважно) и искомое слово тоже искать в этом же регистре. Тогда поиск не будет зависеть от того, как написано слово мир: хоть Мир, хоть МиР, хоть мИр

Но я же говорю, задание довольно расплывчатое.
Разделителями слов в строке могут быть не только пробелы, но и, например, знаки препинания (точки, запятые и т.д.) Тогда не обойтись без разбора строки на слова, и сравнения слов с заданным словом мир.
Но, повторю, это должно быть чётко и конкретно сформулировано в исходном задании.