ИСПРАВИТЬ В  СТРОКЕ С     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