{* Количество букв "а" в тексте *}

Unit STR7;
Interface
Implementation
Begin
 writeln('Подсчет количества букв "а" в тексте');
End.

Program str7;

Uses str7.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  d : String[30];
  n : integer;
  i : integer;
Begin
  write('Vvedite tekst');
  readln(d);
  n := 0;
  For i := 1 To length(d) Do {* Увеличиваем i от 1 до length(d) с шагом 1 *}
    If d[i] = 'а' Then
      n := n + 1;
  write('V tekste а = ', n);
  readkey; {* Нажмите любую клавишу *}
End.