АВЛ дерево без рекурсии и без указателей на предков

#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <locale.h>
#pragma warning(disable: 4996)
int i = 0;
 
typedef struct node // структура для представления узлов дерева
{
    int key;
    unsigned char height;
    struct node* left;
    struct node* right;
}node;
 
 
 
 
unsigned char height(node* p)
{
    p ? p->height : 0;
    return p;
}
 
int bfactor(node* p)
{
    int a= height(p->right) - height(p->left);
    return a;
}
 
void fixheight(node* p)
{
    unsigned char hl = height(p->left);
    unsigned char hr = height(p->right);
    p->height = (hl>hr ? hl : hr) + 1;
}
 
node* rotateright(node* p) // правый поворот вокруг p
{
    node* q = p->left;
    p->left = q->right;
    q->right = p;
    fixheight(p);
    fixheight(q);
    return q;
}
 
node* rotateleft(node* q) // левый поворот вокруг q
{
    node* p = q->right;
    q->right = p->left;
    p->left = q;
    fixheight(q);
    fixheight(p);
    return p;
}
 
node* balance(node* p) // балансировка узла p
{
    fixheight(p);
    if (bfactor(p) == 2)
    {
        if (bfactor(p->right) < 0)
            p->right = rotateright(p->right);
        return rotateleft(p);
    }
    if (bfactor(p) == -2)
    {
        if (bfactor(p->left) > 0)
            p->left = rotateleft(p->left);
        return rotateright(p);
    }
    return p; // балансировка не нужна
}
node* findmin(node* p) // поиск узла с минимальным ключом в дереве p 
{
    while (p->left)
        p = p->left;
    return p;
}
 
node* removemin(node* p) // удаление узла с минимальным ключом из дерева p
{
    if (p->left == NULL)
        p->left = p->right;
    while (p->left)
    {
        p = p->left;
        if (p->left == NULL)
            p->left = p->right;
    }
    balance(p);
    return p;
}
 
node* gNode(int value)
{
    node* tmp = (node*)malloc(sizeof(node));
    tmp->left = tmp->right = NULL;
    tmp->key = value;
 
    return tmp;
}
 
void insert(node **head, int value)
{
    node *tmp = NULL;
    if (*head == NULL) {
        *head = gNode(value);
        
        return;
    }
    tmp = *head;
    while (tmp) {
        if ((value)> (tmp->key)) {
            if (tmp->right) {
                tmp = tmp->right;
            }
            else {
                tmp->right = gNode(value);
                return;
            }
        }
        else if ((value)<(tmp->key)) {
            if (tmp->left) {
                tmp = tmp->left;
            }
            else {
                tmp->left = gNode(value);
                return;
            }
        }
        else {
            return;
        }
    }
}
 
void delel(node **head, int value)
{
    node *tmp = NULL;
    tmp = *head;
    while (tmp->key != value)
    {
        if ((value)> (tmp->key))
        {
            tmp = tmp->right;
        }
        else if ((value)<(tmp->key))
        {
            tmp = tmp->left;
        }
 
    }
    node* q = tmp->left;
    node* r = tmp->right;
    free(tmp);
    if (!r) return q;
    node* min = findmin(r);
    min->right = removemin(r);
    min->left = q;
    balance(min);
    return balance(tmp);
}
void SaveTree(FILE *f, node *t)
{
    if (t != NULL)
    {
        fprintf(f, "%i", t->key);
        if (t->left)
            fputc('+', f);
        else
            fputc('-', f);
 
        if (t->right)
            fputc('+', f);
        else
            fputc('-', f);
 
        SaveTree(f, t->left);
        SaveTree(f, t->right);
    }
}
 
node *ReadTree(FILE *f)
{
    int ch, ch_l, ch_r;
 
    node*t = NULL;
    fscanf(f, "%i", &ch);
    ch_l = fgetc(f);
    ch_r = fgetc(f);
    if (!feof(f))
    {
        t = (node *)malloc(sizeof(node));
        t->key = ch;
        t->left = NULL;
        t->right = NULL;
        if (ch_l != '-')
            t->left = ReadTree(f);
        if (ch_r != '-')
            t->right = ReadTree(f);
    }
    return t;
}
 
void initq(int **q, int n)
{
    for (int i = 0; i < n; i++)
    {
        for (int j = 0; j < n; j++)
            q[i][j] = NULL;
    }
}
void PrintTree1(node *t, int n, int**q)
{
    int j, op;
    if (t != NULL)
    {
        PrintTree1(t->left, n + 1, q);
        op = t->key;
        q[i][n] = op;
        i++;
        PrintTree1(t->right, n + 1, q);
    }
}
int podshet(FILE*fp)
{
    int buf, g, g1, n = 0;
    while (!feof(fp))
    {
        buf = fgetc(fp);
        g = fgetc(fp);
        g1 = fgetc(fp);
        n++;
    }
    return n;
}
void DeleteT(node*t)
{
    if (t != NULL)
    {
        DeleteT(t->left);
        DeleteT(t->right);
        free(t);
    }
    return 0;
}
void PrintTree(int n, int**q)
{
    for (int i = 0; i < n; i++)
    {
        for (int j = 0; j < n; j++)
        {
            if (q[j][i] == NULL)
                printf(" ");
            else
                printf("%i", q[j][i]);
 
        }
        printf("\n");
    }
}
 
int main(void)
{
    int a, i, b, c, **q, **q1, z = 0, er;
 
    FILE* ofp;
    FILE* ifp;
    node* k;
    node* s;
    k = NULL;
    s = NULL;
    ofp = fopen("output.txt", "w");
    ifp = fopen("input.txt", "r");
    setlocale(LC_CTYPE, "russian");
    printf("1-ввод дерева из файла\n2-ввод с клавиатуры\n");
    scanf("%i", &c);
    if (c != 1)
    {
        printf("Введите количество символов\n");
        scanf("%i", &a);
    }
    else
    {
        a = podshet(ifp);
        fseek(ifp, 0, SEEK_SET);
    }
    
    q = malloc(a * sizeof(int*));
    for (i = 0; i < a; i++)
        q[i] = malloc(a * sizeof(int));
    initq(q, a);
    if (c == 2)
    {
        for (i = 0; i < a; i++)
        {
            printf("Введите символ\n");
            scanf("%i", &b);
            insert(&k, b);
        }
        i = 0;
        k->height = CountH(k);
        balance(k);
        PrintTree1(k, 0, q);
        PrintTree(a, q);
        SaveTree(ofp, k);
    }
    else
    {
        i = 0;
        
        PrintTree1(ReadTree(ifp), 0, q);
        PrintTree(a, q);
    }
    
 
    printf("1-добавление элемента\n2-удаление элемента\n3-печать дерева\n4- выход\n");
    scanf("%i", &c);
    while (c != 4)
    {
        if (c == 1)
        {
            printf("Введите символ\n");
            scanf("%i", &b);
            insert(&k, b);
            balance(k);
            a++;
        }
        else if (c == 2)
        {
            printf("Введите символ\n");
            scanf("%i", &b);
            delel(&k, b);
            a--;
        }
        else if (c == 3)
        {
            q1 = malloc(a * sizeof(int*));
            for (i = 0; i < a; i++)
                q1[i] = malloc(a * sizeof(int));
            initq(q1, a);
            PrintTree1(k, 0, q1);
            PrintTree(a, q1);
            SaveTree(ofp, k);
            for (i = 0; i < a; i++)
                free(q1[i]);
            free(q1);
        }
        printf("1-добавление элемента\n2-удаление элемента\n3-печать дерева\n4- выход\n");
        scanf("%i", &c);
    }
 
 
 
    for (i = 0; i < a; i++)
        free(q[i]);
    free(q);
 
    DeleteT(k);
 
    return 0;
}