Переписать с Паскаля на С++

[gvilon]

Есть функция для сортировки списка вставками на Паскале.
Нужно переписать функцию на С++.

function sort(head1:List):List;
var newList, cur, sel:List;
begin
  newList:=nil;
  while head1 <> nil do
  begin
    sel:=head1;
    head1:=head1^.next;
    if (newList = nil) or (sel^.inf < newList^.inf) then
    begin
      sel^.next:=newList;
      newList:=sel;
    end
    else
    begin
      cur:=newList;
      while(cur^.next <> nil) and (cur^.next^.inf < sel^.inf) do
       cur:=cur^.next;
      sel^.next:=cur^.next; cur^.next:=sel;
    end;
  end;
  sort:=newList;
end;

Вот небольшая програмка где используется єта функция..

type List = ^TList;
  TList = record
    inf: byte;
    next: List;
  end;

var head:List;

procedure createList();
var current, x:List;
  i:integer;
begin
  new(current);
  head:=current;
  current^.inf:=random(10);
  for i:=1 to 10 do
  begin
    new(current^.next);
    current:=current^.next;
    current^.inf:=random(10);
  end;
  current^.next:=nil;
end;

function sort(head1:List):List;
var newList, cur, sel:List;
begin
  newList:=nil;
  while head1 <> nil do
  begin
    sel:=head1;
    head1:=head1^.next;
    if (newList = nil) or (sel^.inf < newList^.inf) then
    begin
      sel^.next:=newList;
      newList:=sel;
    end
    else
    begin
      cur:=newList;
      while(cur^.next <> nil) and (cur^.next^.inf < sel^.inf) do
       cur:=cur^.next;
      sel^.next:=cur^.next; cur^.next:=sel;
    end;
  end;
  sort:=newList;
end;

procedure printList(a:List);
var current:List;
begin
  current:=a;
  while current <> nil do
  begin
    write(current^.inf:5);
    current:=current^.next;
  end;
  writeln;
end;

begin
  createList;
  printList(head);
  head:=sort(head);
  printList(head);
end.

Буду очень рад если поможете...