Var
s: string;
i, n: integer;
a: set of char;
begin
Writeln('Введите строку текста');
Readln(s);
n := 0;
a := ['А', 'а'];
for i := 1 to Length(s) do
if (s[i] = ' ') and (s[i - 1] in a) then n := n + 1;
if (s[i - 1] in a) then n := n + 1;
Writeln('Количество слов, оканчивающихся буквой "а", равно ', n)
end.
<u>Тестовое решение:</u>
Введите строку текста
А роза упала на лапу Азора
Количество слов, оканчивающихся буквой "а", равно 4
Я думаю, это должен быть зацикленный алгоритм, поэтому действие 'финиш' не нужно.