Написать программу которая определяет количество предложений в тексте. Предложения разделяются тремя символами «.», «?», «!».- Pascal(Паскаль)

var
 i,kol:integer;
 s:string;
begin
 kol:=0;
 s:='string.';
 for i:=1 to length(s) do ;
 if (s[i]='.') or (s[i]='!') or (s[i]='?') then inc(kol);
 writeln(kol);
end.