Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Составить программу подсчета количества вхождений буквы «а» в заданном тексте, Паскаль.

program Task_Str7;

  {задачи на строки паскаль с решением}
  {Составить программу подсчета количества вхождений буквы "а" в заданном тексте, Паскаль}
var
  i, i_Sun, n: integer;
  s_Str: string;
begin
  s_Str := 'Луна над рекою.';
  n := length(s_Str);
  i_Sun := 0;
  for i := 1 to n do
    if s_Str[i] = 'а' then
      Inc(i_Sun);
  WriteLn('Количество буквы "а" = ', i_Sun, ', в строке: ', s_Str);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Программа подсчета количества вхождений буквы «а» в заданном тексте, Паскаль.