{* Задача 118 *}

Unit ZADACH118;
Interface
Implementation
Begin
 writeln('Даны слово и буква. Сколько раз эта буква встречается в данном слове. ');
End.

Program pas0;

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