Не пойму как переделать для цифр.(если не трудно кто может переделать?)

#include<stdio.h> -
#include<conio.h>
#include<string.h>
int f;
FILE* f1,*f2;       
/ / =============== Создания текстового файла =================
void Create_fl()
{
char key;                  
char s[100];             
f1 = fopen("exl0_5.txt","w");     
do
{
puts("input string:");                 
gets(s);                                
fputs(s,f1);                               
fputc('\n',f1);                               
puts ("continue ? [y/n]");
key=getch();                                          
}
while ((key!='n') && (key!='N'));
fclose(f1);
}
//============ 
void AddWord()
{
int max;                  
char word [20];             
char sa[100], sb[100];        
char* p;                             
char* spacer=". ,:";              
f1=fopen("exl0_5.txt","r");        
f2=fopen("ex!0_5n.txt","w");      
while (!feof(f1))                         
{
fgets(sa,100 ,f1);                     
if (feof(f1)) break;                       
strcpy(sb,sa);                                 
p=strtok(sb,spacer);                                
max=strlen(p);                                           
while (p!=NULL)                                        
{
if(max<=strlen(p))                                
{
max=strlen(p);                                        
strcpy(word,p);                                        
if (word[strlen(word)-1]=='\n')                 
word[strlen(word)-1]=' ';                          
p=strtok(NULL,spacer);
}
}
sa[strlen(sa)-1]=' ';
strcat(sa,word);
fputs (sa,f2) ;
fputc ('\n',f2);
}
fclose (f1);
fclose (f2);
}
// =============== Вывода файла на экран
void Out(FILE*f)
{
char s[100];
while (!feof(f))
{
fgets(s,100,f );
if(feof(f)) break;
puts (s);
}
fclose(f);
}
int main ()
{
puts("search longest word in strings");
Create_fl();
puts("----source file exl0_5.txt-----");
f1=fopen("exl0_5.txt","r");
Out(f1);
AddWord();
puts( " result file exl0_5n.txt ");
f2=fopen("exl0_5n.txt","r");
Out(f2);
getch();
}