Помогите очень прошу ...
После каждого символа (,) вставить пробел и подсчитать количество букв А и В отдельно.
Вот тут ещё пытался сам делать, у меня тока ставит пробел после запятой а А и В не считает. Нужно написать подпрограмму....

А запустить пробовали то, что предлагаете?

Спасибо за вашу отзывчивость и опперативность

Пожалуйста, но достаточно было кнопочки со звездочками)

Кстати, если в CASE-условиях написать набор, например 'A','a': то она будет и маленькие считать...можно и русские добавить....

ИСПРАВИТЬ В  СТРОКЕ С     IF:if ((s[i]=',' )  оr  (s[i]='A')  or (s[i]='B')) then       далее всё также, как было в программе 

Вся программа)))var  s: string;  i, nA, nB: integer;begin  Write('Введите строку: '); Readln(s);  nA := 0; nB := 0;  for i := length(s) downto 1 do    case s[i] of      ',': Insert(' ', s, i + 1);      'A': Inc(nA);      'B': Inc(nB)    end;  Writeln('Результат: ', s);  Writeln('Количество "А" равно ', nA, ', количество "B" равно ', nB)end.Тестовое решение:Введите строку: -MARY HAS A LITTLE LAMB. -Oh, no, it is not true!Результат: -MARY HAS A LITTLE LAMB. -Oh,  no,  it is not true!Количество "А" равно 4, количество "B" равно 1