Строки в delphi. Необходим алгоритм для задачи.

[Destiny265]

Дан текст. Создать текст все слова, которого начинаются на ту же букву, что и последнее слово исходного текста.

Мне хотя бы просто алгоритм, код под него я напишу сам.

[Sinapsik]

алгоритм на словах подойдет?Если "да",то:
С конца текста проверяем символы до встречи первого символа ' ' (пробела).Букву стоящую на позицию ниже (в цикле ниже,а в тексте выше) заносим в переменную.
Далее идем от первого символа,проверяем его,яв-ся ли он равным этой переменной,если нет,то идем до первого пробела и проверяем следующий символ на совпадение с переменной (и т.д.).
При совпадении запоминаем позицию этой буквы и идем до след. пробела (запоминаем позицию до него) и копируем текст от первой позиции до второй
Как-то так

[MyLastHit]

Да задача не сложная... Но она на вынос мозга)

[Destiny265]

Sinapsik, спасибо

[Sparkman]

function FindFirstLetterFromLastWord(text:string):string;
const wrd : set of char = ['A'..'Z','А'..'Я'];
var i,wb:integer;
    b:boolean;
    letter : char;
begin
     b:=false;
     letter:=#0;
     wb:=0;
     for i:=Length(text) downto 1 do
     begin
          if (AnsiUpperCase(text[i])[1] in wrd) and (wb=0) then wb:=i else
          if (wb>0)and not (AnsiUpperCase(text[i])[1] in wrd) then
             if (i+1)=wb then wb:=0 else
             begin
                  if not b then
                  begin
                       letter:=Text[i+1];
                       b:=true
                  end else
                      Text[i+1]:=letter;
             end;
     end;
     if AnsiUpperCase(text[1])[1] in wrd then text[1]:=letter;
     result:=text;
end;

минус в том, что знаки перехода на следующую строку выглядят в виде букв, и их тоже алгоритм заменяет , а вот для строк все правильно отрабатывает

[Destiny265]

Благодарю.