Задача, текст из последних букв заданного текста Опции

[STAB]

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

Долго искал на форуме что-то подобное, ничего не нашёл. Рассчитываю на помощь форумчан

[volvo]

Есть специальный раздел, где описаны способы разделения текста на слова

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

const
  delimiter = [' '];
var
  s, res: string;
  i: integer;
begin
  s := 'Two consecutive single quotes are used to indicate' +
       ' a single quote in a string';
  { oeesedoeaeenag }
  res := '';
  for i := 1 to length(s) do begin
    if ((i = length(s)) and not (s[i] in delimiter)) then res := res + s[i]
    else
      if ((i > 1) and (s[i] in delimiter) and not (s[i - 1] in delimiter))
      then res := res + s[i - 1];
  end;
  writeln(res)
end.