Удалить все слова, состоящие только из букв последнего слова

const rz=[' ',',','.',':'];//разделители
var str,s:string;
    i,j,k:integer;
    m,mp:set of char;
begin
writeln('Введите строку, содержащую слова, разделенные  пробелами, запятыми, точками');
writeln('и двоеточиями, последнее слово из различных букв');
readln(str);
str:=' '+str+' ';//добавим пробел в начало и в конец для удобства
//соствим множество букв последнего слова
i:=length(str)-1;
m:=[];
while (i>=1)and not(str[i] in rz) do
 begin
  include(m,str[i]);
  dec(i);
 end;
i:=2; //начнем со 2 символа
while i<=length(str) do //пока не конец
if not(str[i] in rz) and(str[i-1] in rz) then//если не разделитель, а перед ней разделитель
 begin
  s:='';
  j:=i;
  while(j<=length(str))and not(str[j] in rz)do //пока не конец строки и не разделитель
   begin
    s:=s+str[j];//составляем слово
    j:=j+1;//идем вперед
   end;
  j:=1;
  while(j<=length(s))and(s[j] in m) do inc(j);
  if j>length(s) then delete(str,i,length(s))//если все буквы есть в последнем слове, удаляем
  else inc(i,length(s));//иначе перешагиваем
 end
else inc(i);//пропускаем разделители
delete(str,1,1);//удалим первый пробел
writeln(str);
end.