Не работает задачи.Очередность

[Riki_Tiki_Tavi]

создать текстовый файл. за один просмотр файла создать новый файл в котором будут находиться всы длинные - палиндромы сохраняя первоначальный порядок слов в файле.

Делал вот так но что то не получаеться

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <conio.h>

FILE *fin;

FILE *fout;

char s[15];

int main()

{

int l=0,f,i,len,lennew=0;

fin=fopen("in.txt", "rt");

fscanf(fin,"%s",s);

while (!feof(fin))

{

f=0;

lennew=strlen(s);

for(i=0;i<lennew/2;i++)

{

if(s!=s[lennew-i])

f=1;

}

if(f==0 && len==0)

{fout=fopen("out1.txt", "wt");

fprintf(fout,"%s ",s);

fclose(fout);}

else if(f==0 && lennew==len)

{fout=fopen("out1.txt", "at");

fprintf(fout,"%s ",s);

fclose(fout); }

else if (f==0 && lennew>=len)

{fout=fopen("out1.txt", "wt");

fprintf(fout,"%s ",s);

fclose(fout);

}

len=lennew;

fscanf(fin,"%s",s);

}

fclose(fin);

return 0;

}