Дано предложение. Посчитать количество слов,заканчивающихся на заданную букву ,и записать эти слова в другую строку через запятую,СРОЧНО PASCAL ABC

var s1,s2:string; x:char; i,p:integer;beginwriteln('Введите предложение:');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 = юзаданную,другую,запятую