Здравствуйте, Иванов Виктор Олегович!

Программа в приложении.
Считается , что последовательность S оканчивается словом.
В программе поиск последнего слова организован при вводе последовательности и когда встречается пробел, то сбрасывается ранее введенное слово.
Удачи!

Приложение:
var
s:string;
c:char;
i,n:integer;
begin
{вводим натруральное число}
repeat
write('Enter N:');
readln(n);
until n>0;
{формируем строку последнего слова}
s:='';
for i:=1 to n do
begin
write('S',i,':=');
readln(c);
if c<>' 'then s:=s+c{добавляем букву в слово}
else s:='';{пробел сбрасываем слово}
end;
{выводим последнее слово}
writeln('Last Word:',s);
{счетчик букв "а"}
i:=0;
{подсчет букв "а" в слове}
while pos('a',s)>0 do
begin
inc(i);
delete(s,1,pos('a',s));
end;
{выводим результат}
writeln('Result:',i);
readln;
end.