Дана непустая последовательность непустых слов из латинских букв, соседние слова отделены друг от друга запятой, за последним словом записана точка. Определить количество слов, которые начинаются с буквы "а".

var   s: string; function FindWord(first: integer): integer; // Возвращает номер позиции правее first, где находится очередной разделитель var   i: integer;   c: char; begin   i := first + 1;   Result := 0;   repeat     c := s[i];     if (c = ',') or (c = '.') then Result := i     else i := i + 1   until (Result > 0) or (c = '') end; var   ib, ie, k,n: integer; begin   writeln('Введите строку, отделяя слова запятыми, в конце введите точку');   readln(s);   k := 0;   ib := 1;   n:=length(s);   repeat     ie := FindWord(ib);     if ie > 0 then begin       if UpCase(s[ib]) = 'A' then k := k + 1;       ib := ie + 1     end;   until (ie = 0) or (ie>=n);   writeln('Количество слов, начинающихся с буквы "а", равно ', k) end. Введите строку, отделяя слова запятыми, в конце введите точку A,roza,upala,na,lapu,azora,Antoshka,skazhi,ge,ty,del,moy,portfel?. Количество слов, начинающихся с буквы "а", равно 3