Как много смыслов в простом пожелании! Напишите программу, которая найдет все строки, в которых есть что-то доброе (достаточно проверить наличие подстроки добр), а потом выберет из них строку с наименьшей длиной. Формат ввода

Вводятся строки, пока не будет введена строка с фамилией Бэггинс.

Формат вывода

Вывести наименьшую длину строки, в которой есть что-то доброе. Если таких не оказалось, вывести 0.Торопиться некуда таким добрым утром, целый день впереди!

От них одно беспокойство и неприятности!

Еще,

1. Маркированный и нумерованный, это основа. Впрочем, есть ещё выпадающий в Calc и .. ещё какие-нибудь в базах данных...

2. Вкладка ''Позиция'' (диалоговое окно ''Нумерация и маркеры'') или Вкладка "Параметры" (диалоговое окно ''Нумерация и маркеры'')

3. Написать 1. или * или что-то ещё. Подробнее последние абзацы:
https://help.libreoffice.org/Writer/Creating_Numbered_or_Bulleted_Lists_as_You_Type/ru

4. Формат - Маркеры и нумерация . Откройте вкладку Параметры
Подробнее: https://help.libreoffice.org/Common/Options_1/ru

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  // Вводим строку с клавиатуры, приводим буквы к строчным,
  // разбиваем на слова по пробелу и помещаем их в массив aW
  var aW:=ReadlnString('->').ToLower.ToWords;
  // Пропускаем массив через фильтр, оставляющий слова, содержащие
  // русскую букву "а" и подсчитываем, сколько слов через него.
  // Полученное количество выводим.
  Writeln('Слов с "а": ',aW.Where(w->Pos('а',w)>0).Count)
end.

Пример
-> Наша Таня громко плачет: уронила в речку мячик
Слов с "а": 4