Нахождение и удаление из строки палиндрома максимальной длины

#include <stdio.h>
#include <stdlib.h>
#include <locale>
#include <string.h>
#include <Windows.h>
#include <time.h>
 
void Delete(char A[], char B[], char C[])
{
    int i, s, d, j=0;
 
    for (i=0;A[i]!='\0';i++) if (A[i]==' ') {C[i]='0'; j++;} else C[i]='1';
    for (i=0,d=0,s=0;A[i]!='\0' && s<=j;i++)
    {
        if (C[i]=='0') s++;
        if (C[i]=='1') {B[d++]=A[i];}
    }
 
    //return *B; //printf("%s\n", B);
}
 
void DeleteFinal(char B[], char E[], char D[])
{
    int i, d;
 
    for (i=0,d=0;B[i]!='\0';i++)
    {
        if (D[i]=='1') continue;
        if (D[i]=='0') {E[d++]=B[i];}
    }
 
    for(i=0;B[i]!='\0';i++) B[i]=' '; 
    for(i=0;E[i]!='\0';i++) B[i]=E[i];
 
    //return *B;
}
 
char Find(char A[], int j, int b)
{
    int l=0, d=0;
 
    while (j>=b)
    {
        if (A[j]==A[b]) {l++;}
        if (A[j]!=A[b]) {l=0; break;} // f - количество несовпадений (букв в 2 раза больше), d - количество совпадений (букв в 2 раза больше)
        b++; j--;
    }
 
    if (l==0) return 0;
    else {d=l*2; return d;}
}
 
int main()
{
    int t1;
    const int arr=501;
    setlocale(LC_ALL, "rus");
    char A[arr]="", B[arr]="", E[arr]="";//, K[201]; // Строковый массив + пустые массивы
    char C[arr], D[arr]=""; // Массив признак
    unsigned char i=0,j=0,s=0;
    int a, d, f, h, ch, nech, end, beg, x, y=0;
    int m=0;
    char k,c,p=0,n=0;
 
    SetConsoleCP(866);
    printf("Введите строку: ");
    fgets(A, arr+1, stdin);//fscanf(stdin, "%[^\n]", A);
    printf("Строка без пробелов: ");
 
    SetConsoleCP(1251);
    Delete(A,B,C); // Удаление пробелов из строки
    fputs(B, stdout);
 
    for (d=0;B[d]!='\0';d++); // Поиск новой максимальной длины
 
    while (p==0)
    {
    for (i=0,j=d-1;i<=j;i++) // Цикл перебора одинаковых строк
    {
        for (;j>i;j--)
        {
            if (B[i]==B[j]) 
            {
                beg=i; end=j; // Выделение границ внутри смешанной строки
                f=Find(B,end,beg);
                if (f==0) {continue;} // если строка не палиндром, то массив признак - везде ноль
                if (f!=0 && f>m) {for(h=0;B[h]!='\0';h++) {D[h]='0';} for(h=beg;h<=end && D[h]!='\0';h++) {D[h]='1';} m=f;}// хранение максимума совпадений и запись массива признака (сначала очистка от старых значений, потом запись новых)
            }
        }
        j=d-1;
    }
    DeleteFinal(B,E,D); // Ввести в массив новую "очищенную" строку
    for (a=0;B[a]!=' ';a++); // Проверка на оставшиеся палиндромы, длиной более 2 символов
    for (c=0,k=a-1;c<=k;c++,k=a-1)
        for (;k>c;k--) if (B[c]==B[k]) {n=Find(B,k,c);}
        if (n!=0) {i=0; d=a-1; end=0; beg=0;} else p=1; // Если новых палиндромов нет, то завершаем программу
        n=0; m=0;
    }
 
    SetConsoleCP(866);
    printf("Удаление максимального палиндромного элемента строки: ");
 
    SetConsoleCP(1251);
    fputs(B, stdout);
    printf("\n");
    SetConsoleCP(866);
    t1=clock();
    printf("Время работы программы: %d сек", t1/CLOCKS_PER_SEC);
    printf("\n");
    system("PAUSE");
    return 0;
}