Пусть дан текстовый файл. Перенесите в новый файл все строки, НЕ содержащие заданное слово.
var
f_in, f_out:text;
c,s1,s2:string;
a,b,d,p:integer;
begin {main}
assign(f_in, 'f1.txt');
reset(f_in);
assign(f_out,'f2.txt');
rewrite(f_out);
Writeln ('Введите нужное слово: ');
readln (s1);
while not eof(f_in) do
begin
readln(f_in, s2);
if pos(s1,s2)=0 then
writeln (f_out, s2)
else
begin
c:=s2;
a:=Length(s1);
b:=pos(s1,s2);
if (b>1) then
delete(c,1, b-1);
p:=pos(' ', c);
d:=Length(c);
if (a<>(d-p)) then
writeln(f_out, s2)
end;
end;
close (f_in); close (f_out);
readln;
end.
Не правильно работает
Помогите решить.....