строка Опции

[chel09]

какая функция используется для нахождения буквы в последнем слове строки?

[chel09]

Нет, давай с другой стороны.
Представь, что перед тобой лежит листок бумаги с записанной строкой и тебе надо решить задачу, условие которой ты привел.
Попытайся подробно описать последовательность собсвенных действий для решения задачи.

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

[Lapp]

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

попробуй как-то так (без русских букв):

const
  Letters: set of char=['A'..'Z']+['a'..'z'];
...
  i:=Length(s);
  w:='';
  while (i>0)and(w='') do
    if s[i]='a' then if (i=1)or not(s[i-1] in Letters) then
      while (i<=Length(s))and(s[i] in Letters) do begin
        w:=w+s[i];
        Inc(i)
      end
    else Dec(i);