Составить программу вычисления суммы мест на которых стояла буква а

Перебираете строку, если текущий элемент равен "а" то приплюсовываете текущую позицию к сумме, выглядит так:

sum:=0; for n:=1 to length(stroka) if stroka[n]='a' then sum:=sum+n;