подсчитать сколько слов в предложении заканчиваются на Я

program Project1;
 
const
  buc = ['А'..'Я', 'а'..'я'];
 
var
  s: string;
  a: array [1..255] of string;
  i, j,count: integer;
 
begin
  writeln('Введите строку:');
  readln(s);
  j:=1;    {индекс массива, количество слов в строке}
  for i:=1 to length(s)-1 do {разбиваем строку на слова и заносим в массив}
    begin
      if s[i] in buc then
        a[j]:=a[j]+s[i]
      else
        if s[i]=' ' then
          begin
            inc(j);
            continue;
          end;
    end;
  for i:=1 to j do
    if copy(a[i], length(a[i]), 1) = 'я' then inc(count);
  writeln(count,' слов в предложении заканчиваются на букву "я"');
  readln;
end.

program Project1;
 
const
  buc = ['А'..'Я'];
 
var
  s: string;
  i: integer;
 
begin
  writeln('Введите строку:');
  readln(s);
  for i:=1 to length(s)-1 do
    if s[i] in buc then delete(s, i, 1);
  writeln(s);
  readln;
end.