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

Мне не интересно делать за вас вашу работу.

Попробуйте начать.

В "частых вопросах и ответах" есть тема Разбиение на слова. Все способы.

Сделали код такого плана:

var strStr, strSim, strWord: string;
var i: integer;
var OK: integer;
 
begin
// Ввод данных и инициализация переменных
writeln('Введите строку');
readln(strStr);
writeln('Введите символ');
readln(strSim);
 
strWord := '';
strStr := strStr + ' ';
OK := 0;
 
// Поиск слов и указанного пользователем в них символа
for i:=1 to length(strStr) do
    if strStr[i] <> ' ' then
       begin     // Если очередной символ не пробел, то считается,ч то это продолжается слово
            if strStr[i] = strSim then OK := 1;      // Если символ повстречался, устанавливаем для себя флаг
            strWord:=strWord+strStr[i];              // Слово "дописывается"
       end
    else
       begin    // Если повстречался пробел, то считается, что слово закончилось
            if OK = 1 then writeln(strWord, ' ');    // Если взведён флаг, то слово выводится на консоль
            strWord := '';
            OK := 0;
       end;
end.

но вывод слов не осуществляется, что делать ?

Если серьёзно, то
1. Разобраться самостоятельно.
2. Обратиться к автору с просьбой исправить.
3. Обратиться в инспекцию по правам потребителей с жалобой на некачественное оказание услуги - написание кода.