задача на множества, вывести слова, в которых нет букв первого слова Опции

[DruiD]

Дан текст, который состоит из слов, между которыми стоит промежуток. Напечатать те слова, в которых отсутствуют буквы первого слова.

[DruiD]

Задачу решил через множества, но у неё есть небольшой недостаток: буквы слов, в которых отсутствуют буквы первого слова выводит в алфавитном порядке. Подскажите, если кто знает как это обойти, или как их вывести другим способом (в моём случае).
Вот программа:

Код

program smartlytaken;
var s:string; D,mn1:set of char;
    f,p,j,y,i: byte;
begin
writeln ('vvedite stroku s');
readln (s);
D:=[];
i:=1;
while S[i]<>' ' do
      begin
      include (D,S[i]);
      i:=i+1;
      end;
j:=i+1;
for y:=i+1 to length(s) do
if s[y]=' ' then
  begin
  mn1:=[];
  for p:=j to y-1 do
  include (mn1,s[p]);
  j:=y+1;
  if D*mn1=[] then
   for f:=ord('a') to ord('z') do
   if chr(f) in mn1 then write(chr(f));
   writeln;
  end;
readln
end.