Определить, сколько слов заканчиваются буквой а

const razd='; '; ended=':';
var st,s: string;
   k: integer;
begin
   readln(st);
   delete(st,length(st)+1-length(ended),length(ended));
   st:=st+razd;
   repeat
      //pos(razd,st);
      s:=copy(st,1,pos(razd,st)-1);
      if s[length(s)]='a' then inc(k);
      delete(st,1,length(s)+length(razd));
   until st='';
   writeln(k);
end.

const razd='; '; {разделительный набор символов}
   ended=':'; {чем строка заканчивается}
var st,s: string;
   k: integer; {счетчик слов,заканчивающихся буквой а}
begin
   readln(st); {читаем строку}
   delete(st,length(st)+1-length(ended),length(ended)); {удаляем конец, т.е. ended} 
   st:=st+razd; {прибавляем разделительный набор символов}
   repeat
      s:=copy(st,1,pos(razd,st)-1); {записываем в строку s символы из строки st c 1-ого по символ, предшествующий разделителю}
      if s[length(s)]='a' then inc(k); {если слово заканчивается на a то увеличиваем счетчик на 1}
      delete(st,1,length(s)+length(razd)); {удаляем символы из строки st, начиная с 1-ого до разделителя (вместе с разделителем)}
   until st=''; {выйдем из цикла, когда таким образом полностью уничтожим строку}
   writeln(k);
end.