Определить количество слов, начинающихся с буквы “и”

var
  s:string;
  i,kt,kz,kd:integer;
BEGIN
  write('Введите строку:');  readln(s);
  kt:= 0;   kd:= 0;   kz:= 0;
  for i:= 1 to length(s)  do
    begin
      if s[i]= ',' then
        inc(kz);
      if s[i]= '.' then
        inc(kt);
      if s[i]= ':' then
        inc(kd);
    end;
  writeln('Количество запятых   = ',kz);
  writeln('Количество точек     = ',kt);
  writeln('Количество двоеточий = ',kd);
  readln;
END.

var
  txt,s:string;
  l:list<string>;
begin
  write('Введите Текст:');txt:=ReadString;
  l:=txt.Split(('  ').tochararray,System.StringSplitOptions.RemoveEmptyEntries).ToList;
  writeln('количество слов мама:',l.Where((s:string)->s='мама').Count);
  writeln('количество слов начинающихся с буквы "и":',l.Where((s:string)->s[1]='и').Count);
  writeln('количество слов:',l.Count);
  s:=txt.Replace('а','е');
  writeln('буквы "а" заменили на "е"',s);
  writeln('в тексте ',s.ToCharArray.Where((c:char)->c='.').Count,' точек,', 
  s.ToCharArray.Where((c:char)->c=',').Count,' запятых ',
  s.ToCharArray.Where((c:char)->c=':').Count,' двоеточий');
  writeln('окончание "ет" имеют ',l.Where((s:string)->pos('ет',s)=length(s)-1).Count,' слов');
  writeln('предлогов "в":',l.Where((s:string)->s='в').Count);
  s:=txt.Replace(' не ',' ни ');
  writeln('текст после замены "не" на "ни":',s);
end.

// writeln('количество слов начинающихся с буквы "и":',l.Where((s:string)->s[1]='и').Count);
// writeln('окончание "ет" имеют ',l.Where((s:string)->pos('ет',s)=length(s)-1).Count,' слов');
writeln('количество слов начинающихся с буквы "и":',l.Where((s:string)->s.StartsWith('и')).Count);
writeln('окончание "ет" имеют ',l.Where((s:string)->s.EndsWith('ет')).Count,' слов');