Исправить ошибки в коде

#include<iostream>
#include<stdio.h>
#include<conio.h>
#include<string.h>
#include<math.h>
using namespace std;
 
 
int* init(int* A)
{
    clrscr();
    int n=3;
    int a=0;
    int b=1;
    int i,j;
    int* LFSR; /*Указатель на строку, которую мы используем в качестве сдвигового регистра*/ 
    LFSR=new int [A[0]+1];
    if(LFSR==NULL) return NULL;
    for(i=0; i<=A[0]; i++) /*Инициализируем начальные значения*/
    {LFSR[i]=(int)a;
    for(j=0; j<n; j++)
        if(i==A[j]) LFSR[i]=(int)b;}
 
    return LFSR;
}
int takt(int* LFSR, int* A)
{
    int R, Z;
    R=LFSR[A[0]];/*Запоминаем первый элемент*/
    Z=LFSR[A[0]]^LFSR[A[1]]^LFSR[A[2]]; /*Генерируем новый элемент*/
    for(int i=A[0]; i>0; i--)/*Сдвиг LFSR*/
        LFSR[i]=LFSR[i-1];
    LFSR[0]=Z; /*Запись нового элемента*/
    return R;
}
char sim(int *P)
{
    char R=(char)0;
    int Z1=0, Z2, i, j;
    for(i=0; i<8; i++)
    {   if(P[7-i]==1) Z2=(1<<i);
        else Z2=0;
        Z1=Z1^Z2;
    }
    R=(char)Z1;
    return R;
}
int main()
{
    int A[3]={7, 1, 0};
    int B[3]={23, 5, 0};
    int C[3]={17, 6, 0};
    int* L1=init(A);
    int* L2=init(B);
    int* L3=init(C);
    int c, d, i, j, k, n, m;
    FILE*F, *H;
    int B1=0;
    int B2=0;
    int B3=0;
    int P1, P2;
    int P[8]={0,0,0,0,0,0,0,0};
    char R=(char)0;
 
    printf("vvedite razmer PSDP v megobaitah\nn=");
    scanf("%d", &n);
    n=n*1024*8;
    F=fopen("PSDP.dat", "w");
    H=fopen("bin.txt", "w");
    m=0;
    for(i=0; i<1024; i++)
    {   j=0;
        while(j!=(n-1))
        {
            B1=takt(L1, A);
            if(B1==1)B2=takt(L2, B);
            if(B1==0) B3=takt(L3, C);
            P1=B2^B3;
            P[m]=P1;
            j++;
            fprintf(H, "%d",P[m]);
            m++;
            if(m==8) 
            {
                    m=0;
                    R=sim(P);
                    fwrite(&R, sizeof(char), 1, F);
                    R=(char)0;
            }}}
    fclose(F);
    fclose(H);
    printf("\nEND!\n");
    getch();
    delete [] L3;
    delete [] L2;
    delete [] L1;
    return 0;
}