Помогите найти ошибку!, Перенос слов в другой файл Опции

[iFool]

Задача
Пусть дан текстовый файл. Перенесите в новый файл все строки, НЕ содержащие заданное слово.

Код

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.

Не правильно работает
Помогите решить.....