Посчитать количество восклицательных предложений в тексте длины не более 255 символов. (программа Паскаль)

var s: String; i, k: Integer;
begin
  ReadLn(s);
  for i:=2 to Length(s) do
    if (s[i]='!') and (s[i-1]<>'!') then Inc(k);
  WriteLn(k);
end.