Удаление или вставка символа из алфавита в последовательности

[Ar2emiS]

Язык Си. Дано 100 случайных последовательностей (положить в файл) длины 600 символов(из русских букв), в каждую последовательность вносится 10 изменений, то есть либо добавляется либо удаляется любой символ в любом месте. Измененные последовательности записать в новый файл.

Но программа работает некорректно. Выводятся посторонние символы.

#include <stdio.h>
#include <locale.h>
#include <ctype.h>
#include <string.h>
#include <stdlib.h>
#define L 650            
int main(void)
{
 setlocale(LC_ALL, "");
 srand(time(NULL)); 
    FILE *fp3 = fopen("f3.txt", "r+"),*fp4 = fopen("f4.txt", "r+"); //f3-содержит последовательности, f4-с добавлением 10 вставок или удалений 
	int N=600,Q=100; // N-длина последовательности, Q - количество последовательностей
     char S[L],help;
char AL[33]={'а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы','ь','э','ю','я'};
  
    int r0,r1,r2,r3; 
for (int n=1; n<=Q;n++)
	{
	fgets(S,L, fp3) ;    

int p=0; 

        for (int t=0; t<10; t++)   
		{
         r0 =rand()%2; //для вставки или удаление
			if (r0==0) //тогда вставка
			{
			r2=rand()%33;  //любой буквы
            r1=rand()%(N+p);//в любом месте
			p++;
             for (int j=N+p; j>r1; j--)
			 { 
			  S[j]=S[j-1];
			 }
            S[r1]=AL[r2];
		    }
		    
            if (r0==1) //тогда удаление
			{
            r3=rand()%(N+p); // в любом месте
			p--;
             for (int j=r3; j<N+p; j++)
			 { 
			  S[j]=S[j+1];
			 }
		    }
		    
           
        }
        
printf("%s\n",S);
fputs(S,fp4);
}
    fclose(fp4);
	fclose(fp3);
	return 0;
}