Написать подпрограммы, возвращающие новый список L

[Sumy-ua]

Даны два списка L1 и L2 пар вещественных чисел. Написать подпрограммы, возвращающие новый список L, включающий в себя:
а) пары списка L1, первая координата которых встречается как вторая координата у пар списка L2,
б) пары (х, у) списка L1, встречающиеся в виде (у, х) в списке L2,
в) пары (х,у), где х < у списка L1.

Вот начал делать:

#include <vcl.h>
#pragma hdrstop
 struct Stack {
 int info, info1,info2,info3;
  Stack * next;
} *begin;
 
void InStack(int,int,int,int);
void Del_All(Stack **);
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender) // создать списки
{
  int i,n,c;
 n=StrToInt(Edit1 ->Text);
  for(i=0;i<n;i++)
 { InStack(random(20),random(220),random(50),random(60)); }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender) // просмотр списков
{
 if(!begin)
 {
  ShowMessage("Стек пуст");
  return;
 }
 Stack *temp=begin;
 while(temp!=NULL)
 {
  Memo1->Lines->Add(IntToStr( temp->info ) + "," + IntToStr( temp->info1 ));
  Memo2->Lines->Add(IntToStr( temp->info2 ) + "," + IntToStr( temp->info3 ));
   temp=temp->next;
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender) // очистить списки
{
    Memo1->Clear();
     Memo2->Clear();
 if (begin != NULL) Del_All(&begin);
}
//---------------------------------------------------------------------------
  void InStack(int in,int in1,int in2,int in3)
{
  Stack *temp = new Stack;
  temp->info=in;
  temp->info1=in1;
  temp->info2=in2;
  temp->info3=in3;
  temp->next=begin;
  begin=temp;
}
void Del_All(Stack **p)
{
 Stack *temp=new Stack;
 while(*p!=NULL)
 {
  temp=*p;
  *p=(*p)->next;
  delete temp;
 }
}

Помогите сделать пункты а,б,в.