Разработать процедуру, которая добавляет после і-ого элемента копию j-ого

type
  tElement = Integer;
  tList = ^rList;
  rList = record
    N : tElement;
    Pred, Next : tList;
  end;
  
var
  List : tList;
  
function NewNode(N : tElement; Pred, Next : tList) : tList;
var
  List : tList;
begin
  New(List);
  List^.N := N;
  List^.Pred := Pred;
  List^.Next := Next;
  
  NewNode := List;
end;
 
procedure AddList(N : tElement);
var
  Cur : tList;
begin
  if List = nil then
    List := NewNode(N, nil, nil)
  else
    begin
      Cur := List;
      while Cur^.Next <> nil do
        Cur := Cur^.Next;
      Cur^.Next := NewNode(N, Cur, nil);
    end;
end;
 
procedure CreateList;
var
  Count : Integer;
  N : tElement;
begin
  Write('Число элементов списка = '); ReadLn(Count);
  while Count > 0 do
    begin
      Dec(Count);
      AddList(Random(100));
    end;
end;
 
procedure OutList(msg : String);
var
  Cur : tList;
  Order : Integer;
begin
  WriteLn(msg, ' :');
  Order := 0; Cur := List;
  while Cur <> nil do
    begin
      Inc(Order);
      Write(' [', Order, ': ', Cur^.N, ']');
      Cur := Cur^.Next;
    end;
  if Order = 0 then
    Write('<пусто>');
  WriteLn;
end;
 
function FindOrder(Order : Integer) : tList;
var
  Cur : tList;
begin
  if Order <= 0 then
    Cur := nil
  else
    begin
      Cur := List;
      while (Order > 1) and (Cur <> nil) do
        begin
          Dec(Order);
          Cur := Cur^.Next;
        end;
    end;
  FindOrder := Cur;
end;
 
procedure InsertCopy(A, B : Integer);
var
  NodeA, NodeB, Node : tList;
  Order : Integer;
begin
  NodeA := FindOrder(A);
  if NodeA = nil then
    begin
      WriteLn('Элемента с номером ', A, ' не существует.');
      Exit;
    end;
 
  NodeB := FindOrder(B);
  if NodeB = nil then
    begin
      WriteLn('Элемента с номером ', B, ' не существует.');
      Exit;
    end;
    
  Node := NewNode(NodeB^.N, NodeA, NodeA^.Next);
  NodeA^.Next := Node;
  Node^.Next^.Pred := Node;
end;
 
var
  i, j : Integer;
begin
  List := nil;
  Randomize;
  CreateList; { Создание списка }
  OutList('Создан список'); { Вывод списка }
  
  WriteLn('Добавление после і-ого элемента копию j-ого:');
  Write('i = '); ReadLn(i);
  Write('j = '); ReadLn(j);
  InsertCopy(i, j);
  
  OutList('Новый список'); { Вывод списка }
end.