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

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

13 -  xiii 99 -  xcix666 -  dclxvi444 -  cdxliv1692 -  mdcxcii