Подсчет суммы мест, на которых в словах текста стоит заданная буква

var s: string;
    c: char;
    i, p, k: integer;
begin
  writeln('Введите строку:');
  readln(s);
  write('Введите символ: ');
  readln(c);
  if pos(c, s) = 0
    then write('Строка не содержит заданного символа.')
    else begin
      k := 0;
      p := 1;
      for i := 1 to length(s) do
        if s[i] = ' '
          then k := 0
          else begin
            inc(k);
            if s[i] = c then p := p * k
          end;
      write('Произведение позиций символа "', c, '" в словах: ', p)
    end;
  readln
end.

var s: string;
    c: char;
    i, p, k: integer;
begin
  writeln('Введите строку:');
  readln(s);
  write('Введите символ: ');
  readln(c);
  k := 0;
  p := 0;
  for i := 1 to length(s) do
    if s[i] = ' '
      then k := 0
      else begin
        inc(k);
        if s[i] = c then p := p + k
      end;
  if p > 0
    then write('Сумма позиций символа "', c, '" в словах: ', p)
    else write('Символ "', c, '" в строке не найден');
  readln
end.