Организация списков в виде очереди на основе рекурсивных данных

#include <vcl.h> 
#pragma hdrstop 
#include "Math.h" 
#include "Unit1.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 
//--------------------------------------------------------------------------- 
struct Sel { 
  int info; 
  Sel *next; 
} *begin, *end, *t, *begin1, *end1; 
 
 
 
void InSel(Sel*& begin, Sel*& end, int x) { 
 
 
          t = new Sel; 
          t->info=x; 
          if (begin==NULL) end = begin = t; 
          else { 
              end->next = t; 
              end = t; 
          } 
          end->next = NULL; 
} 
 
__fastcall TForm1::TForm1(TComponent* Owner) 
        : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 
 
Memo1->Clear(); 
Memo1->Lines->Add("Изначальная очередь 1"); 
for(t=begin; t; t=t->next){ Memo1->Lines->Add(""+FloatToStrF((t->info),ffFixed,8,0));} 
 
Memo3->Clear(); 
Memo3->Lines->Add("Изначальная очередь 2"); 
for(t=begin1; t; t=t->next){ Memo3->Lines->Add(""+FloatToStrF((t->info),ffFixed,8,0));} 
 
 
Sel *max; 
t = begin; 
max = begin; 
 
while(t) { 
    if (t->info > max->info) max = t; 
    t = t->next; 
} 
max->next =  begin1; 
 
Memo2->Clear(); 
Memo2->Lines->Add("Измененная очередь 1"); 
for(t=begin; t; t=t->next){ Memo2->Lines->Add(""+FloatToStrF((t->info),ffFixed,8,0));} 
 
 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::Button2Click(TObject *Sender) 
{ 
randomize(); 
int i,n,x,k; 
n=StrToInt(Edit1->Text); 
for(i=0; i<n; i++) { 
          x=random(21); 
          InSel(begin, end, x); 
          x = random(21)+20; 
          InSel(begin1, end1, x); 
} 
}