Добавить в однонаправленный(двунаправленный) список элемент с заданным номером

uses crt;
 
type pointer = ^element;
 
     element = record
     int: integer;
     next: pointer;
     end;
 
var first,cur: pointer;
    n,i: integer;
 
{----------------------------------------------------------------}
procedure read_list;
begin
write('Kolichestvo elementov v ishodnom spiske: '); readln(n);
writeln('Vvodite elementy: ');
 
write('1 = ');
new(first);
readln(first^.int);
cur:=first;
 
for i:=2 to n do
 begin
 write(i,' = ');
 new(cur^.next);
 cur:=cur^.next;
 readln(cur^.int);
 end;
writeln;
 
cur^.next:=nil;
end;
{----------------------------------------------------------------}
procedure add_element;
var nr: integer;
    tmp: pointer;
begin
write('Nomer vstavleaemogo elementa: '); readln(nr);
new(tmp);
write('Znachenie elementa = '); readln(tmp^.int);
writeln;
 
cur:=first;
for i:=2 to nr-1 do cur:=cur^.next;
 
tmp^.next:=cur^.next;
cur^.next:=tmp;
inc(n);
end;
{----------------------------------------------------------------}
procedure print_list;
begin
writeln('Izmenennyi odnonapravlennyi spisok:');
cur:=first;
writeln('1: ',cur^.int);
for i:=2 to n do
 begin
 cur:=cur^.next;
 writeln(i,': ',cur^.int);
 end;
end;
{----------------------------------------------------------------}
 
 
begin clrscr;
read_list;
add_element;
print_list;
readkey; end.

uses crt;
 
type pointer = ^element;
 
     element = record
     int: integer;
     next,prev: pointer;
     end;
 
var first,cur: pointer;
    n,i: integer;
 
{----------------------------------------------------------------}
procedure read_list;
begin
write('Kolichestvo elementov v ishodnom spiske: '); readln(n);
writeln('Vvodite elementy: ');
 
write('1 = ');
new(first);
readln(first^.int);
first^.prev:=nil;
cur:=first;
 
for i:=2 to n do
 begin
 write(i,' = ');
 new(cur^.next);
 cur^.next^.prev:=cur;
 cur:=cur^.next;
 readln(cur^.int);
 end;
writeln;
 
cur^.next:=nil;
end;
{----------------------------------------------------------------}
procedure add_element;
var nr: integer;
    tmp: pointer;
begin
write('Nomer vstavleaemogo elementa: '); readln(nr);
new(tmp);
write('Znachenie elementa = '); readln(tmp^.int);
writeln;
 
cur:=first;
for i:=2 to nr-1 do cur:=cur^.next;
 
tmp^.prev:=cur;
tmp^.next:=cur^.next;
cur^.next:=tmp;
tmp^.next^.prev:=tmp;
inc(n);
end;
{----------------------------------------------------------------}
procedure print_list;
begin
writeln('Izmenennyi odnonapravlennyi spisok:');
cur:=first;
writeln('1: ',cur^.int);
for i:=2 to n do
 begin
 cur:=cur^.next;
 writeln(i,': ',cur^.int);
 end;
end;
{----------------------------------------------------------------}
 
 
begin clrscr;
read_list;
add_element;
print_list;
readkey; end.