Перевод из Паскаля на С++

Program sp;
uses crt;
Type Pint=^intr;
     intr=record
       a:integer;
       next:Pint;
     end;
Procedure Sozd(Var f: pint;n:integer);
Var b,c: Pint;
    i:integer;
Begin
  New(f);
  b:=f;
  b^.next:=nil;
  Write('Введите число ');
  ReadLn(b^.a);
  for i:=1 to n-1 do
  begin
    new(c);
    Write('Введите число ');
    ReadLn(c^.a);
    c^.next:=nil;
    b^.next:=c;
    b:=c;
  end;
end;
Procedure Pros(F: Pint);
Var b: pint;
begin
  b:=f;
  While b<> nil do
  begin
    Write(b^.a:3,' ');
    b:=b^.next;
  end;
end;
Procedure Change(Var F: pint);
Var b,c: pint;
    n,k,i:integer;
begin
   WriteLn;
   Write('Введите число,которое нужно добавить ');
   readln(n);
   Write('Введите число после которого нужно добавить ');
   readLn(k);
   b:=f;
   While b<>nil do
   begin
     if k=b^.a then
     begin
        new(c);
        c^.next:=b^.next;
        b^.next:=c;
        c^.a:=n;
        exit;
     end;
     b:=b^.next;
   end;
end;
Var R: pint;
    n:integer;
Begin
Write('Введите n ');
readLn(n);
Sozd(r,n);
Pros(r);
Change(r);
Pros(r);
readLn;
Release(r);
end