Составить из двух слов одно

#include <stdio.h>
#include <string.h>
 
char s1[]="гора";
char s2[]="радуга";
char res[100];
char *p;
int i;
for(p=s1; *p!=0; p++) {
  for(i=0; i<strlen(p); i++)
     if (p[i]!=s2[i]) break;
  if (i==strlen(p)  break;
}
*p = '\0';
strcpy(res, s1);
strcat(res, s2);
printf("%s\n", res);

#include <stdio.h>
#include <string.h>
#define MAX_WS  64
#define MAX_LEN 128
#define W_LEN   64
int is_cmp(const char* s1, const char* s2);
int get_words(char* arr[], int N, char* s, size_t len);
 
int main(void){
    int   i, j, n;
    char* arr[MAX_WS], w[W_LEN];
    char  buf[MAX_LEN] = "ERLANG, COBOL, UNIX, PERL, SUN, abXYZC, XYZCpp";
/*
    printf("Enter: ");
    fgets(buf, MAX_LEN, stdin);
*/
    n = get_words(arr, MAX_WS, buf, W_LEN / 2);
    for(i = 0; i < n; ++i){
        if(arr[i] == NULL)
            continue;
 
        for(j = i + 1; j < n; ++j){
            if(arr[j] == NULL || i == j)
                continue;
 
            w[0] = '\0';
            if(is_cmp(arr[i], arr[j]))
                strcat(strcpy(w, arr[i]), arr[j]);
            else if(is_cmp(arr[j], arr[i]))
                strcat(strcpy(w, arr[j]), arr[i]);
 
            if(w[0]){
                puts(w);
                arr[j] = arr[i] = NULL;
                break;
            }
        }
    }
    getchar();
    return 0;
}
 
//сравнение
int is_cmp(const char* s1, const char* s2){
    const char* a, *b;
    while(*s1){
        a = s1;
        b = s2;
        while(*a && *b && (*a == *b)){
            ++a;
            ++b;
        }
 
        if(!*a && *b && (a - s1) > 1 && (b - s2) > 1)
            return 1;
        ++s1;
    }
    return 0;
}
 
//получение слов
int get_words(char* arr[], int N, char* s, size_t len){
    const char delim[] = " \t\n,.!?";
    int i = 0;
    for(s = strtok(s, delim); (i < N) && (s != NULL); s = strtok(NULL, delim)){
        if(strlen(s) < len)
            arr[i++] = s;
    }
    return i;
}