Помогите переделать прогу с списком из С++ в Паскаль(Delphi)

[Olya90]

Усли кому несложно помогите))
Вот собственно код:

#include <iostream>
using namespace std;

struct elem{char x;elem *next;};

elem *first(char x){
	elem *pv=new elem;
	pv->x=x; 
	pv->next=0;
	return pv;
}

void add(elem *&end,char x){
	elem *pv=new elem;
	pv->x=x;
	pv->next=0;
	end->next=pv;
	end=pv;
}

 
void remove(elem *&beg,int k){
	  elem *temp=beg;
	  if(k==1)beg=beg->next;
	  else{
      for(int i=1;i<(k-1);i++){beg=beg->next;}
	  elem *prev=beg;
	  beg=beg->next;
	  prev->next=beg->next;
	  delete beg;
	  beg=temp;	
	  }
}

int main(){
	char n;
	int N,k;
	cout<<"Enter size of list:";
    cin>>N;
	cout<<"Enter number of element which we must delete:";
    cin>>k;
	cout<<"Enter data:";
    cin>>n;
	elem *beg=first(n);
	elem *end=beg;
	for(int i=1;i<N;i++){
	cin>>n;
	add(end,n);
	}
	end=beg;
	remove(beg,k);
	end=beg;
	for(int i=0;i<N-1;i++){
		cout<<endl<<beg->x;
		beg=beg->next;	
	}
cout<<endl;	 
system("pause");
}

[diliana]

написать код заново проще, чем переделывать из С++ в Паскаль. ИМХО
какой нужен список?

[Olya90]

Односвязный список(удаление елемента по заданой позиции)

[Chudo4258]

список нумерованный, или как вы будете задавать позицию???