Переведите код на pascal из C++

#include <iostream>
#include <conio.h>
 
using namespace std;
 
//------------------------------------------------------------------------------
struct Tspisok
{
 int k;
 Tspisok* Next;
}
*Gol = NULL;
//------------------------------------------------------------------------------
void Add(Tspisok **G)
{
  int a;
  Tspisok *Tek = *G, *Kon = NULL;
  while(Tek!=NULL)
  {
   Kon = Tek;
   Tek = Tek->Next;
  }
 
  cout<<"Vvedite znachenie\n";
  cin>>a;
  Tek = new Tspisok;
  Tek->k = a;
  Tek->Next = NULL;
  if (*G == NULL)
   *G = Tek;
  else
   Kon->Next = Tek;
}
//------------------------------------------------------------------------------
void Print(Tspisok* G)
{
 Tspisok *Tek = G;
 while(Tek!=NULL)
 {
 cout<<Tek->k<<" ";
 Tek = Tek->Next;
 };
};
//------------------------------------------------------------------------------
void Delete(Tspisok **G)
{
  Tspisok *Tek = *G;
  while(Tek != NULL)
  {
   Tek = Tek->Next;
   free(*G);
   *G = Tek;
  }
};
//------------------------------------------------------------------------------
void  Poisk(Tspisok **G,int E)
{
   Tspisok *tek = *G;
   while(tek!=NULL)      //первое вхождение E
   {
    if (tek->k == E)
    {
    break;
    }
    else
    tek = tek->Next;
   }
   if (tek == NULL)
   cout<<"Element E ne fhodit";
   else
   {
    Tspisok *Z = tek;
    tek = *G;
    Tspisok *Gol2=NULL, *Kon2=NULL;
    Tspisok *tek2;
    while(tek!=NULL)
    {
     tek2 = new Tspisok;
     tek2->k = tek->k;
     tek=tek->Next;
     tek2->Next = NULL;
   if (Gol2 == NULL)
   {
   Gol2 = tek2;
   Kon2 = tek2;
   }
   else
   {
    Kon2->Next = tek2;
    Kon2 = tek2;
   }
   }
   Z->Next=Gol2;
   };
};
//------------------------------------------------------------------------------
int main()
{
 int n;
 int E;
 while(1)
 {
  cout<<"Dobavit Element Y-1/N-2\n";
  cin>>n;
  if (n==1)
  Add(&Gol);
  else
  {
  cout<<"Vvedite E";
  cin>>E;
   Print(Gol);
   Poisk(&Gol,E);
   cout<<"\n";
   Print(Gol);
   Delete(&Gol);
   break;
  }
 }
getch();
return 0;
}
//---------------------------------------------------------------------------