В списке удвоить каждое вхождение числа V

[Astronomer]

Написал прогу, составил процедуру для удвоения, но она чё-то не работает. Тип списка - очередь. Помогите разобраться. спс

uses crt;
Type
   spisok=^element;
   element=record;
   info:integer;;
   next:spisok;
   end;
var
   first,elem,elem2,elemX,R:spisok;
   J:byte;
   procedure udv;
     begin
       new(elemX);
       elemX^.info:=first^.info;
       new(R);
       R^.next:=first^.next;
       elemX^.next:=R^.next;
       R^.next:=elemX;
       end;
Begin
   elem2:=nil;
   new(first);
   writeln('Введите первый элемент цепочки');
   readln(first^.info);
   first^.next:=nil;
   elem:=first;
   elem2:=first;
   For J:= 1 to 2 do
      begin
         new(first);
         writeln('Введите элемент цепочки);
         readln(first^.info);
          if first^.info=2 then udv;
         first^.next:=nil;
         elem^.next:=first;
         elem:=first;
         end;

  while elem2<>nil do
        begin
           write(elem2^.info,'-');
           elem2:=elem2^.next;
        end;
end.