{* Задача 121 *}

Unit ZADACH121;
Interface
Implementation
Begin
 writeln('Дан текст. Определить все слова оканчивающиеся на "ая". ');
End.

Program pas13457;

Uses zadach121.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  a  : String;
  b  : String;
  o  : longint;
  oo : longint;
  i  : longint;
  l  : longint;
  l2 : longint;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('введите предложение: ');
  readln(a);
  l := length(a);
  m :
  For i := 1 To l Do {* Увеличиваем i от 1 до l с шагом 1 *}
    If (a[i] = ' ')And(a[i + 1] = ' ') Then
    Begin
      delete(a, i, 1);
      l := l - 1;
      Goto m;
    End;
  If a[l]' ' Then
  Begin
    inc(l); {* Прибавим к l единицу *}
    a[l] := ' ';
  End;
  For i := 1 To l Do {* Цикл для i => [1 .. l] *}
    If a[i] = ' ' Then
    Begin
      l2 := length(b);
      If (b[l2] = 'я')And(b[l2 - 1] = 'а') Then
        writeln(b)
      Else inc(o); {* Увеличиваем o на 1 *}
        b := '';
      inc(oo); {* oo++ *}
    End;
    Else b := b + a[i];
      If o = oo Then
        write('таких слов не обнаружено!');
  readln; {* Приостановка программы. Ожидание Enter *}
End.