var s1,s2:string; x:char; i,p:integer;
begin
writeln('Введите предложение:');
readln(s1);
write('x = ');
readln(x);
for i:=length(s1) downto 1 do
 if s1[i] in [',',';',':','.','!','?']
  then delete(s1,i,1);
s1:=s1+' ';
s2:='';
p:=pos(' ',s1);
while p>0 do
 begin
 if s1[p-1]=x then s2:=s2+copy(s1,1,p-1)+',';
 delete(s1,1,p);
 p:=pos(' ',s1);
 end;
if s2='' then writeln('В предложении нет искомых слов')
else
 begin
 delete(s2,length(s2),1);
 writeln(s2);
 end;
end.

Пример:
Введите предложение:Дано предложение. Посчитать количество слов, заканчивающихся на заданную букву, и записать эти слова в другую строку через запятую.
x = ю
заданную,другую,запятую