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

Кинь задание

Как разделяются слова в начальной строке?

Если можно,с объяснениями

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 pgt;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 = ю
заданную,иную,запятую