Ответ:

• var s: string;
• begin
• readln(s);
• writeln(s.Remove(',','.','!','?',' ').Length);
• end.

Пояснение:

Сумма длин всех слов строки - это количество букв строки, или же количество символов, не являющимися знаками. Поэтому используем Remove(), где в скобках указываем символы, которые не нужно считать. Можно добавить (например, скобки или др.). Lenght возвращает длину строки, в нашем случае уже видоизмененной. На фото пример с выводом видоизмененной строчки (для наглядности работы).

Пример работы: