Задача на строки

[Evgenyi]

Ввести строку найти все символы строки за исключением символов, входящих в последнее слово.

[Mad_Cat]

{разделитель слов ' '<пробел>}
s1:=trim(s);
while pos(' ',s1)<>0 do
begin
delete(s1,1,pos(' ',s1));
end;
sc:=[];
for i:=1 to length(s1) do
if not (s1[i] in sc) then sc:=sc+[s1[i]];
sc2:=[];
for i:=1 to length(s) do
if not (s[i] in sc)  and not (s[i] in sc2)  then begin
sc2:=sc2+[s[i]];
write(s[i],' ');
end;