Работа с текстовыми файлами (из Файла input.txt переписать слова в файл output.txt, удалив все слова, заданные в файле diction.dic

[Polina25]

Файл input.txt содержит несколько строк текста. Слова в тексте могут разделяться пробелами и знаками препинания. Переписать текст в файл output.txt, удалив из него все слова, которые встречаются в файле diction.dic.

[ZX Spectrum-128]

1. Необходимо приложить соответствующие файлы.
2. Если вы наберете в поиске "разбиение строки на слова", то половина решения у вас в кармане.

[Polina25]

вот файлы..)

[Polina25]

файл output..

[ZX Spectrum-128]

Спасибо, Полина! Пункт N 2?

[Stilet]

Пишу с потолка:

var s:string;

 procedure dict;
 var k:string; f:text;
 begin
  assign(f,'diction.txt'); reset(f);
   while not eof(f) do begin readln(f,k);s:=s+k+' ';end;
  close(f);
 end;

 var k:string; i:integer;
begin dict;
   assign(input,'input.txt'); assign(output,'output.txt');
   while not eof(input) do begin
    readln(k);
    i:=pos(' ',k);
    while i<>0 do begin
     if pos(copy(k,1,i-1),s)<>0 then writeln(copy(k,1,i-1));
     delete(k,1,i+1); i:=pos(' ',k);
    end;
   end;
end.

Так что нужна проверка.

[Polina25]

Спасибо большое за решение!
Но при запуске почему то выдает ошибку..(
File not open for input. С чем это может быть связано?

[ZX Spectrum-128]

   assign(input,'input.txt'); assign(output,'output.txt');
   reset(input); rewrite(output); // <-- добавьте

[Polina25]

Добавила, программа запускается, но при вводе текста вылетает..

[ZX Spectrum-128]

При каком вводе текста? У вас ввод текста из файла же.