Нужна помощ с однонаправленным списком Опции

[Krjuger]

В общем задача заключается в том чтобы после елемента списока P1,с ключем Х,равным задаваемому значению А,вставить список P2.

Type
 TElem = string;      

 TList = ^TNode;      
 TNode = record       
	 Info: TElem;  
	 Next: TList   
	 end;
var
 P1,P2:TList;
 r:TList;
 A:integer;

Procedure Insert(var P1: Tlist; x : integer);
  begin
  new®;
  r^.info:=x;
  r^.next:=P1^.next;
  P1^.next:=r;
 end; 

Тут я беру элемент из списка п2 и записываю его после элемента с ключем Х.В общем моя идея заключалась в том,чтобы создать процедуру,которая будет юзять insert и потихоньку выдирая из п2 по 1 элементу вставлять их каждый раз сдвигая ключ на 1,тем самым впихнуть весь список, но как это реализовать хз.

Так же есть вопрос немного в другой области.Необходимо взять из конца дека V элементов и вставить их в стек,вот тут приветствуются лбые идеи,потому что своих совсем нет(((
P.s.Просьба на фак не тыкать прочитал и не один,но если есть конкретные вещи из фака ,тобуду только рад.

[Krjuger]

Насчет флага,спасибо учту.Насчет говрящих имен..Я про процедуры говорил (хотя согласен,мой косяк)

P.S.Других критиковать всегда легче,а если сам что нить непонимаеш,то иногда такие глюпые вещи совершаешь)
В общем ошибки исправил,учел и обещаю исправица А вообще щас по инфе такие вещи начинаются ,что я чую я частельно буду обращаться к здешним умам),ну и напоследок полный вариант программы,правда там есть 1 аномалия(после операции в конец второго списка добавляются 2 элемента(последний элемент списка и "0"),но с меня это не требуется да и другие лабы есть,так что если понадобится это легко исправить.

 
Program laba9;
uses CRT;
Type

 point = ^item;       {ЏаҐ¤бв ў«Ґ­ЁҐ бЇЁбЄ  }
 item = record        {‡ўҐ­® бЇЁбЄ }
	 Number: integer;
	 Next: point;   {‘«Ґ¤гойЁ© н«Ґ¬Ґ­в бЇЁбЄ }
	 end;
var
 P1,P2: point;
 A : integer;
 fin1,fin2 : text;

Procedure SeachAndInsert(P1,P2: point ; x : integer);
 var
  flag : boolean;
  save:Point;
 begin
  flag:=true;
  while (P1<>nil) and flag=true do
  begin
   if P1^.number=x then
    begin
    flag:=false;
    save:=P1^.next;
    end
   else
    begin
     P1:=P1^.next;
    end;
  end;
   P1^.next:=P2;
   while P2^.next<> nil do
   P2:=P2^.next;
   P2^.next:=save;
 end;


Procedure Create(var p : point; var fin:text);
 var
 curr,last:point;
 begin
  reset(fin);
  while not seekeof(fin) do
  begin
   new(curr);
   read(fin,curr^.number);
   curr^.next:=nil;
   if p=nil then
    p:=curr
   else
    last^.next:=curr;
    last:=curr;
   end;
   close(fin);
 end;


Procedure BListPrint( P : point );
begin
 write('< ');
 while P <> nil DO
 begin
  write( P^.number );
  If P^.Next <> nil then write(',');
  P := P^.Next
 end;
 writeln(' >')
end;

 begin
 clrscr;
 chdir('C:\Tpascal');
 assign(fin1,'test1.txt');
 assign(fin2,'test2.txt');
 Create(P1,fin1);
 BListPrint(P1);
 Create(P2,fin2);
 BListPrint(P2);
 writeln('‚ўҐ¤ЁвҐ Ї а ¬Ґва Ђ:');
 read(A);
 SeachAndInsert(P1,P2,A);
 BListPrint(P1);
 end.