НУЖНА ПОМОЩЬ В СОСТАВЛЕНИИ ПРОГРАММЫ НА ЯЗЫКЕ CИ

[Петр2018]

Дан указатель Р1 на первый элемент непустого двусвязного списка. Продублировать в списке все элементы с нечетными номерами (новые элементы добавлять после существующих элементовс такими же значениями) и вывести указатель на последний элемент преобразованного списка)

Имееется код паскаль,но нужно СИ

program Pointer38;
type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
    Prev: PNode;
  end;
 
procedure CreateList(var P1,P2:PNode);
var
 pt1,pt2:PNode;
 i,N:integer;
begin
 Write('NumEl:');
 Readln(N);
 new(p1);
 Write('num: ');
 Readln(P1^.Data);
 pt2:=p1;
 
 for i:=1 to N-1 do
  begin
   new(pt1);
   Write('num: ');
   Readln(pt1^.Data);
   pt1.Prev:=pt2;
   pt2.Next:=pt1;
   pt2:=pt2.Next;
  end;
 pt2.Next:=nil;
 p2:=pt2;
end;
 
procedure InsertAfter(P0:PNode;D:integer);
var
 temp:PNode;
begin
 new(temp);
 temp.Data:=D;
 
 temp.Prev:=P0;
 temp.Next:=P0.Next;
 
 P0.Next:=temp;
 
 if temp.Next<>nil then
  begin
   temp:=temp.Next;
   temp.Prev:=P0.Next;
  end;
end;
 
procedure DublOdd2(var P1,P2:PNode);
var
 p:PNode;
 a:^Word;
 len:integer;
begin
 if P1<>nil then
  begin
   len:=1;
   p := p1;
   a:=Addr(p);
 
   repeat
    begin
     if odd(len) then
      begin
       InsertAfter(p,p.Data);
       p := p^.next;
      end;
     P2:=P;
     p := p^.next;
     inc(len);
    end;
   until (p = nil);
  end
  else Writeln('nil');
end;
 
var
 P1,P2:PNode;
 a:^Word;
 
begin
 CreateList(P1,P2);
 P2:=nil;
 
 DublOdd2(P1,P2);
 
 a:=Addr(P2);
 Writeln('end: ',a^);
end.

Пожалуйста, оформляйте Ваш код согласно правилам.