Динамические списки в С++ Builder 10.1

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
typedef struct Node {
      int X;
      int Y;
      int N;
      struct Node * next;
} Node;
 
TForm3 *Form3;
 
Node * node;
Node * p_min = NULL, * p_new = NULL;
 
int N = 0, k = 1;
int min_Y, min_X;
 
//поиск узла в динамическом списке по Y
Node * search_node(Node * n, int y) {
    if (n == NULL) return NULL;
    if (n->Y == y)
        return n;
    else
        return (search_node(n->next,y));
}
//вставка элемента в динамический список
void insert_node(Node ** n, int x, int y, int item) {
    Node * p;
 
    p = (Node *)malloc (sizeof(Node));
    p->X = x;
    p->Y = y;
    p->N = item;
    p->next = *n;
    *n = p;
}
//поиск предыдущего элемента в динамическом списке по Y
Node * predecessor_node(Node * n, int y) {
    if ((n == NULL) || (n->next == NULL)) {
        return NULL; //Error: predecessor sought on null node
    }
    if ((n->next)->Y == y) {
        return (n);
    } else
        return (predecessor_node(n->next,y));
}
//удаление элемента из динамического списка по Y
int delete_node(Node ** n, int y) {
    Node * p;
    Node * pred;
 
    p = search_node(*n,y);
    if (p!=NULL) {
        pred = predecessor_node(*n,y);
        if (pred == NULL)
            *n = p->next;
        else
            pred->next = p->next;
        free(p);
        return 0;
    }
    return -1;
}
//поиск минимального узла
void search_min(Node * n){
    if (n == NULL) {
        if (p_min == NULL) {
            p_min = (Node *) malloc(sizeof(Node));
            p_min->Y = min_Y;
            p_min->X = min_X;
        }
        return;
    }
    if (n->Y < min_Y) {
        min_Y = n->Y;
        min_X = n->X;
        p_min = n;
    }
    search_min(n->next);
}
 
void print_node(Node *n) {
    if (n == NULL) return;
    Form3->Label1->Caption = Form3->Label1->Caption +"\n"+IntToStr(n->Y)+" - "+IntToStr(n->N);
    print_node(n->next);
}
 
Node * sort_node(Node ** n) {
    Node * p;
 
    if ((*n) == NULL) return p_new;
    min_Y = (*n)->Y;
    min_X = (*n)->X;
    search_min(*n); // поиск минимального, инициализация p_min
    if (p_min != NULL) {
        p = (Node *)malloc(sizeof(Node));
        *p = *p_min;
        insert_node(&p_new,p->X,p->Y,k);
        k++;
        delete_node(n,p_min->Y);
        if ((*n) != NULL) {
            p_min->Y = (*n)->Y;
            p_min->X = (*n)->X;
        }
        sort_node(n);
    }
}
 
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormCreate(TObject *Sender)
{
    Form3->WindowState = wsMaximized;
}
void PaintPunkt(int X,int Y, int N) {
    Form3->Canvas->Pen->Width = 2;
    Form3->Canvas->Pen->Color = clRed;
    Form3->Canvas->Ellipse(X-2,Y-2,X+2,Y+2);
    Form3->Canvas->Pen->Width = 1;
    Form3->Canvas->Pen->Color = clBlack;
    Form3->Canvas->TextOutW(X-3,Y-17,IntToStr(N));
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    N++;
    PaintPunkt(X,Y,N);
    insert_node(&node,X,Y,N);
    Label1->Caption = Label1->Caption +"\n"+IntToStr(Y);
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
    Label1->Caption = Label1->Caption +"\n";
    sort_node(&node);
    print_node(p_new);
}

Node * sort_node(Node ** n) {
 
    if ((*n) == NULL) return p_new;
    min_Y = (*n)->Y;
    min_X = (*n)->X;
    search_min(*n); // поиск минимального, инициализация p_min
    if (p_min != NULL) {
        insert_node(&p_new,p_min->X,p_min->Y,k);
        k++;
        delete_node(n,p_min->Y);
        if ((*n) != NULL) {
            p_min->Y = (*n)->Y;
            p_min->X = (*n)->X;
        }
        sort_node(n);
    }
}