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

[DruiD]

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

[Lapp]

Вот этот кусок (вывод на печать) убери:

  if D*mn1=[] then
   for f:=ord('a') to ord('z') do
   if chr(f) in mn1 then write(chr(f));
   writeln;

а перед строчкой:

j:=y+1;

вставь вот такую строку:

WriteLn(Copy(s,j,y-j));

Тогда печать будет правильной. Но твоя прога все равно не совсем верно работает. Если в конце нет пробела, она не напечатает последнее слово.. И еще, если два или больше пробела подряд, то она будет думать, что между ними пустые слова и выводить их..
Сможешь исправить?