Добавление с случайное дерево поиска

[Bugrimov]

Добрый день!
Стыдно, но я откровенно говоря не очень силен в Паскале. Нужна Ваша помощь, как переделать этот код на язык Си.
Я что-то наваял, но мой код не работает. Дерево пустое... Я явно упустил какой-то момент при адаптации под Си.

procedure SDP(D: integer; var Root: pVertex);
var p: ^pVertex;
begin
  p := @Root;
  while p^ <> nil do
    if D < p^^.Data then
     p := @p^^.Left
    else if D > p^^.Data then
           p := @p^^.Right;
  if p^ = nil then
  begin
    new(p^);
    p^^.Data := D;
    p^^.Right := nil;
    p^^.Left := nil;
  end
end;
 
...
 
  for i := 1 to n do
    SDP(a[i],Root2);

[s-andriano]

Зачем что-то переделывать - пишите сразу на С.

[Bugrimov]

На Си так на Си

for(i = 0; i < n; i++)
	{
		AddTree(root, mass[i]);
	}
......
........
void AddTree(Tree *root, int D)
{
	Tree **p = &root;

	while((*p) != NULL)
	{
		if(D < (*p)->data)			p = &((*p)->pleft);
		else if(D > (*p)->data)		p = &((*p)->preight);
	}
	if((*p) == NULL)
	{
		(*p) = (Tree**)malloc(sizeof(Tree*));
		(*p)->data = D;
		(*p)->pleft = (*p)->preight = NULL;
	}
}

Код не работает так как этого хотелось бы.
Подскажите как доработать код....

Пытаюсь победить вот этот псевдокод.
ver.jpg

И алгоритм вроде не сложных, но не получается... .

[Bugrimov]

Возникли проблемы с освоением случайных деревьев поиска. Есть у кого нибудь хорошая ссылка на материал или книгу. Только не Google.....
Если есть видео материал, то вообще слов нет