{* Задача 225 *}

Unit ZADACH225;
Interface
Implementation
Begin
 writeln('Дано предложение. Сколько слов являются перевёртышами и сколько букв "а" в предложении. Найти их разность');
End.

Program z11;

Uses zadach225.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  i  : longint;
  j  : longint;
  k  : longint;
  l  : longint;
  l1 : longint;
  ka : longint;
  a  : String;
  b  : String;
  c  : String;
Begin
  clrscr; {* Очищаем экран *}
  textcolor(11); {* Установить Светло-сине-зеленый цвет текста *}
  write('введите текст: ');
  readln(a);
  l := length(a);
  If (a[l]'.')Or(a[l]'!')Or(a[l]'?') Then
  Begin
    a[l + 1] := ' ';
    inc(l); {* Увеличиваем l на 1 *}
  End;
  Else a[l] := ' ';
    For i := 1 To l Do {* Цикл для i => [1 .. l] *}
      If (a[i] = ' ') Then
      Begin
        l1 := length(b);
        c := '';
        For j := l1 Downto 1 Do
          c := c + b[j];
        If b = c Then
          inc(k); {* Прибавим к k единицу *}
        b := '';
      End;
      Else b := b + a[i];
        For i := 1 To l Do {* Цикл для i => [1 .. l] *}
          If (a[i] = 'a')Or(a[i] = 'а') Then
            inc(ka); {* ka++ *}
  If k > = ka Then
    write('кол-во перевёртышей на ', k - ka, ' больше')
  Else write('кол-во букв "а" на ', ka - k, ' больше');
    readln; {* Ждем нажатия Enter *}
End.