Слияние двух динамических списков... Готовый модуль для работы со списками внутри

unit spisok;
interface
         type BT=longint;
              U=^zveno;
              zveno=record inf:BT; Next:u;
         end;
procedure v_nachalo(var first:u; x:BT);
procedure iz_nachala(var first:u; x:BT);
procedure v_spisok(pred:u; x:BT);
procedure iz_spiska(pred:u; var x:BT);
procedure ochistka(var first:u);
function pust(first:u):boolean;
procedure Print(first:u);
 
implementation
 
procedure v_nachalo;
var vsp:u;
begin
 new(vsp);
 vsp^.inf:=x;
 vsp^.next:=first;
 first:=vsp;
end;
 
procedure iz_nachala;
var vsp:u;
begin
 vsp:=first;
 x:=first^.inf;
 first:=first^.next;
 dispose(vsp);
end;
 
procedure v_spisok;
var vsp:u;
begin
 new(vsp);
 vsp^.inf:=x;
 vsp^.next:=pred^.next;
 pred^.next:=vsp;
end;
 
procedure iz_spiska;
var vsp:u;
begin
 vsp:=pred^.next;
 x:=vsp^.inf;
 pred^.next:=vsp^.next;
 dispose(vsp);
end;
 
procedure ochistka;
var vsp:bt;
begin
 while not pust(first) do
 iz_nachala(first,vsp);
end;
 
function Pust;
begin
 pust:=first=nil;
end;
 
procedure print;
var vsp:u;
begin
 vsp:=first;
 while vsp<>nil do
  begin
   writeln(vsp^.inf);
   vsp:=vsp^.next;
  end;
end;
begin
end.

uses Spisok;
 
var Spisok1,Spisok2,PEnd,PEnd2,P:U;
i,n,x:integer;
 
begin
write('Введите размер 1 списка: '); readln(n);
read(x);
Spisok1:=Nil;
V_Nachalo(Spisok1,X);
PEnd:=Spisok1;
for i:=1 to n-1 do
begin
read(x);
V_Spisok(PEnd,x);
PEnd:=PEnd^.Next;
end;
writeln('Исходный список: ');
Print(Spisok1);
writeln;
 
write('Введите размер 2 списка: '); readln(n);
read(x);
Spisok2:=Nil;
V_Nachalo(Spisok2,X);
PEnd2:=Spisok2;
for i:=1 to n-1 do
begin
read(x);
V_Spisok(PEnd2,x);
PEnd2:=PEnd2^.Next;
end;
writeln('Исходный список: ');
Print(Spisok2);
end.

uses Spisok;
 
{процедура слияния 2-ух спиков}
Procedure Sliyanie(var first1,first2:u);
var vsp:u;
begin
  vsp:=first1;
  while vsp^.next<>nil do {перебор 1 списка до последнего элемента}
   vsp:=vsp^.next;
  vsp^.next:=first2; {последний элемент 1 списка указывает на начало 2}
  first2:=nil; {аннулируем 2 список}
end;
 
var Spisok1,Spisok2,PEnd,PEnd2,P:U;
i,n1,n2,x:integer;
 
begin
 write('Введите размер 1 списка: '); 
 readln(n1);
 read(x);
 Spisok1:=Nil;
 V_Nachalo(Spisok1,X);
 PEnd:=Spisok1;
 for i:=1 to n1-1 do
  begin
   read(x);
   V_Spisok(PEnd,x);
   PEnd:=PEnd^.Next;
  end;
 writeln('1 список: ');
 Print(Spisok1);
 writeln;
 
 write('Введите размер 2 списка: '); 
 readln(n2);
 read(x);
 Spisok2:=Nil;
 V_Nachalo(Spisok2,X);
 PEnd2:=Spisok2;
 for i:=1 to n2-1 do
  begin
   read(x);
   V_Spisok(PEnd2,x);
   PEnd2:=PEnd2^.Next;
  end;
 writeln('2 список: ');
 Print(Spisok2);
 writeln;
 
 Sliyanie(spisok1,spisok2);
 writeln('Получившийся список:');
 print(spisok1);
end.