Слияние двух упорядоченных списков в один упорядоченный

Uses Crt;
Type
  Plist=^Tlist;
  Tlist=record
       info:integer;
       next:Plist;
       end;
 
procedure MakeList(var head:Plist;n:integer);//создание списка
var p,q:Plist;
    k,i:integer;
begin
  new(head);
  head^.next:=nil;
  p:=head;
  for i:=1 to n do
  begin
    new(q);
    write('введите число: ');
    readln(k);
    q^.info:=k;
    q^.next:=nil;
    p^.next:=q;
    p:=q;
  end;
end;
 
procedure Print(head:Plist);//вывод на экран
var p:plist;
begin
  p:=head^.next;
  while p<>nil do
  begin
    write(p^.info:4);
    p:=p^.next
  end;
  writeln;
end;
procedure Switch(L1,L2:Plist;var L3:Plist);//слияние 2 списков {не работает} c ней проблемы)
var h1,h2,h3,q,p:plist;
begin
  new(h1);
  new(h2);
  new(L3);
  L3^.next:=nil;
  h1:=L1^.next;
  h2:=L2^.next;
  if h1^.info>h2^.info then
  begin
    new(h3);
    h3:=L3;
    h3:=L3^.next;
    h3^.info:=h2^.info;
  end
  else
  begin
    new(h3);
    h3:=L3;
    h3:=L3^.next;
    h3^.info:=h1^.info;  
  end;
  while(h1<>nil)or(h2<>nil)do
  begin
    if h1=nil then
    begin
      h3^.info:=h2^.info;
      h3:=h3^.next;
      h2:=h2^.next;  
    end;
    if h2=nil then
    begin
      h3^.info:=h1^.info;
      h3:=h3^.next;
      h2:=h1^.next;
    end;
  if h1^.info>h2^.info then
  begin
    h3^.info:=h2^.info;
    h3:=h3^.next;
    h2:=h2^.next;
  end
  else
  begin
    h3^.info:=h1^.info;
    h3:=h3^.next;
    h2:=h2^.next;
  end;
  end;
end;
Var L1,L2,L3:plist;
    n:integer;
Begin
  writeln('введите кол-во элементов 1-ого списка');
  readln(n);
  MakeList(L1,n);
  writeln('введите кол-во элементов 2-ого списка');
  readln(n); 
  MakeList(L2,n);
  writeln('первый список');
  Print(L1);
  writeln('второй список');
  Print(L2);
  Switch(L1,L2,L3);
  Print(L3);
End.