Написать программу, определяющего, сколько слов в заданной строке оканчивается буквой 'я'.

var a:string;
    d,i:integer;
begin
  readln(a);
  a:=a+' ';
  d:=0;
  for i:=1 to length(a) do
    if (a[i]<>' ') and (a[i+1]=' ') and (a[i]='я') then d:=d+1;
  writeln('Количество строк, заканчивающихся на букву "я"- ',d);
end.

program Project1;
 
const
  //Множество разделителей слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S : String;
  i, Len, Cnt : Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    Len := Length(S);
    Cnt := 0;
    for i := 1 to Len do begin
      //Пропускаем разделители.
      if S[i] in D then Continue;
      //Отслеживаем конец слова.
      if (i = Len) or (S[i + 1] in D) then begin
        if S[i] in ['Я', 'я'] then Inc(Cnt);
      end;
    end;
    
    //Ответ.
    Writeln('Всего слов, оканчивающихся на "Я" или "я": ', Cnt);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

const
 Simvols = [' ', ',', '.', ':', '-', ';', '!', '?'];
var
 st: string;
 i, count: integer;
begin
 readln(st);
  for i:=1 to length(st) do
   if (st[i] in Simvols)and((st[i-1]='я') or (st[i-1]='Я') then inc(count);
  if (st[length(st)]='я') or (st[length(st)]='Я') then count:=count+1;
 writeln('Слов, заканчивающихся на "я": ', count);
end.