Сделать процесс слияния списков в виде процедуры

program e4;
 
type
  PNode = ^Node;//Создаётся тип "Список"
  Node = record
    data: string;
    next: PNode;
  end;
 
function NewNode(data: string; next: PNode): PNode;//Функция, выделяющая память элементам списка
begin
  New(Result);
  Result^.data := data;
  Result^.next := next;
end;
 
var
  s: string;
  c, c1, c2, i: integer;
  L1, L2, h1, h2: PNode;
 
begin
  Write('Количество элементов в спике  L1: ');
  Readln(c1);  //Заполнение списка
  Writeln('Введите элементы списка через ENTER: ');
  c := 0;
  for i := 1 to c1 do //от 1 до количества элементов в списке
  begin
    Readln(s);
    if c = 0 then begin
      L1 := NewNode(s, L1); //Создание списпка и сохранение указателя на первый элемент
      h1 := L1;
      c := c + 1;
    end
    else begin
      L1^.next := NewNode(s, L1^.next); //заполнение всех последующих элементов
      L1 := L1^.next;
    end;
  end;
  
  Write('Количество элементов в спике L2: '); //Заполнение второго списка
  Readln(c2);     
  Writeln('Введите элементы списка через ENTER: ');
  c := 0;
  for i := 1 to c2 do 
  begin
    Readln(s);
    if c = 0 then begin
      L2 := NewNode(s, L2); //Создаем список и сохраняем указатель на первый элемент
      h2 := L2;
      c := c + 1;
    end
    else begin
      L2^.next := NewNode(s, L2^.next); //заполнение последующих элементов списка
      L2 := L2^.next;
    end;
  end;
  //слияние списков
  L2 := h2;
  while L2 <> nil do 
  begin//
    L1^.next := NewNode(L2^.data, L1^.next);
    L1 := L1^.next;
    L2 := L2^.next;
  end;
  L1 := h1;
  //Вывод полученного списка
  Writeln('Получившийся список: ');
  while L1 <> nil do 
  begin
    writeln(L1^.data);
    L1 := L1^.next;
  end;
end.

type
  PNode = ^Node;//Создаётся тип "Список"
  Node = record
    data: string;
    next: PNode;
  end;
 
function NewNode(data: string): PNode;//Функция, выделяющая память элементам списка
begin
  New(Result);
  Result^.data := data;
  Result^.next := nil;
end;
 
procedure слияниеСписков(var h1, h2 : PNode);
begin
  if h1 = nil then
    h1 := h2
  else
    begin
      var last := h1;
      while last^.next <> nil do last := last^.next;
      last^.next := h2;
    end;
  h2 := nil;
end;
 
var
  L, h1, h2: PNode;
 
begin
  var c := ReadLnInteger('Количество элементов в спике  L1:');
  if c > 0 then
    begin
      Writeln('Введите элементы списка через ENTER: ');
      h1 := NewNode(ReadLnString);
      L := h1;
      loop c-1 do
        begin
          L^.next := NewNode(ReadLnString);
          L := L^.next;
        end;
    end;
  
  c := ReadLnInteger('Количество элементов в спике  L2:');
  if c > 0 then
    begin
      Writeln('Введите элементы списка через ENTER: ');
      h2 := NewNode(ReadLnString);
      L := h2;
      loop c-1 do
        begin
          L^.next := NewNode(ReadLnString);
          L := L^.next;
        end;
    end;
  
  слияниеСписков(h1, h2);
 
  //Вывод полученного списка
  Writeln('Получившийся список: ');
  L := h1;
  while L <> nil do 
    begin
      L^.data.Print;
      L := L^.next;
    end;
  WriteLn;
end.