Составьте программу, вычисления суммы мест, на которых в слове X стоят буквы «в» и «п» — Pascal(Паскаль)

Program SemmaMest;
Var Str:string;i,Count:integer;
BEGIN
count:=0;
Writeln('Введите строку');
Readln(Str);
for i:=1 to length(str) do
  if (str[i]= 'в') or (str[i]= 'п')  then count:=count+i;
  Writeln('Сумма =',Count);
Readln;
END.

Program SemmaMest;
Var Str:string;i,Count:integer;
BEGIN
count:=0;
Writeln('Введите строку');
Readln(Str);
for i:=1 to length(str) do
  if (str[i]= 'v') or (str[i]= 'p')  then count:=count+i;
  Writeln('Сумма =',Count);
Readln;
END.