Так как нам нужно обнаружить один из трёх символов, воспользуемся в условии логическим оператором or.
var st: string;
n, k: integer;
begin
writeln('Введите текст');
readln(st);
n := length(st);
k := 1;
for var i := 1 to n do
begin
if (st[i] = '.') or (st[i] = '?') or (st[i] = '!') then
k := k + 1;
end;
writeln('В тексте ', k, ' предложения(-ий)');
end.
