Вывести те слова, которые начинаются на ту же букву, что и последнее слово.

procedure poisk;
var 
  str : String;{Введенная строка}
  st  : String;{вспомогательная строка}
  i,k    : Integer;
 
begin
 
   readln(str);          // считываем предложение
   k:=length(str);      // определяем длину предложения
   i:=0;
   st:='';
 
   while str[k]<>','do // поиск начала последнего слова
   k:=k-1;
 
   k:=k+1;               // номер первой буквы последнего слова
 
  while i<k do          // пока не дошли до последнего слова
  begin
     i:=i+1;
     if str[i]<>' '      // если очередной символ не пробел
     then st:=st+str[i]; // запоминаем символ   
 
     if str[i+1]=','      // Если нашли слово
     then if st[1]=str[k] // если первая буква равна первой букве последнего слова
            then begin
                       writeln(st+' ;'); // выводим слово
                       st:='';             // стираем найденное слово
                   end
            else st:=''; 
 
  end;
 
end;

uses crt;
var s,s1:string;
    c:char;
    i,p:byte;
begin
clrscr;
writeln('Введите строку из слов, разделенных запятыми, в конце точка');
s:='';
repeat
c:=readkey;
write(c);
s:=s+c;
if c=#46 then writeln;{код точки-конец ввода}
until c=#46;
if pos(',',s)=0 then write('Введено только одно слово')
else
 begin
  i:=length(s);{идем с конца}
  while s[i]<>',' do{ищем последнюю запятую}
  i:=i-1;
  c:=s[i+1];{буква после нее}
  writeln('Слова, начинающиеся на букву ',c);
  s[length(s)]:=',';{заменим точку на запятую}
  while pos(',',s)>0 do{пока есть запятые}
   begin
    s1:=copy(s,1,pos(',',s));{читаем первое слово}
    if s1[1]=c then write(s1);{если первая буква подходит, печатаем}
    delete(s,1,pos(',',s));{удаляем}
   end;
 end;
readln
end.