МОДУЛЬ  X1Пример03;
   ПОДКЛЮЧИТЬ Ввод := i21eduВвод, Вывод := i21eduВывод;
   ТИП
      СтрокаПоСловам = УКАЗАТЕЛЬ НА МАССИВ ИЗ МАССИВОВ ИЗ ЛИТЕР;
      ОднаСтрока = УКАЗАТЕЛЬ НА МАССИВ ИЗ ЛИТЕР;    
   ПЕРЕМЕННЫЕ 
      заготовка : ОднаСтрока;
      сюжет: СтрокаПоСловам;
   
   ПРОЦЕДУРА Получить;
      ПЕРЕМЕННЫЕ однаЛитера : ЛИТЕРА; номерЛитеры : ЦЕЛОЕ;
   НАЧАЛО
      НОВАЯ( заготовка, 100); номерЛитеры:=1;
      Ввод.Открыть; УБЕДИТЬСЯ( Ввод.сделано );
      Ввод.Литера(однаЛитера);
      ПОКА Ввод.сделано ДЕЛАТЬ
         заготовка [номерЛитеры]:=однаЛитера;
         Вывод.Цел(номерЛитеры); Вывод.Цепочка(заготовка); Вывод.Литера(однаЛитера);             Вывод.НовСтрока;
         INC(номерЛитеры);
         Ввод.Литера(однаЛитера);
      КОНЕЦ;
      Вывод.Цепочка('Прочитана строка: '); Вывод.Цепочка(заготовка);Вывод.НовСтрока;
   КОНЕЦ Получить;
   
   ПРОЦЕДУРА СочинитьСюжет*;
      ПЕРЕМЕННЫЕ
   НАЧАЛО
      Получить;
   КОНЕЦ СочинитьСюжет;
НАЧАЛО
   
КОНЕЦ  Х1Пример03.

(!)Х1Пример03.СочинитьСюжет Однажды {зимой/летом/осенью/весной} случился {пожар/наводнение/землетрясения} в одном {селе/городе/становище}.
(!)Х1Пример03.СочинитьСюжет Однажды {зимой.