текстовый файл

[лапочка55]

Дан текстовый файл и некоторое слово. В новый файл поместить те строки файла, которые содержат данное слово.


помогите пожалуйста!!!завтра сдавать!!!

[Stilet]

const ss='Слово';
var q,w:text;s:string;
begin
 Assign(q,'file1');reset(q);Assign(w,'file2');rewrite(w);
 while not eof(q) do begin
  readln(q,s);
  if pos(ss,s)<>0 then writeln(w,s);
 end;close(q);close(w);
end.

Идея понятна?

[лапочка55]

у меня с файлами вообще не как.если можно напишите весь код программы

[Paster Fob]

Вам и так полный код дали.В константе задайте ваше слово,укажите нужный путь к файлам.