program ListDemo;
type
  TElem = integer; { Тип информационной части }
  TList = ^TNode;
  TNode = record
    info: TElem;
	next: TList;
  end;

procedure ZList_Init(var L: TList);
var
  n: TList;
begin
  new(n);
  n^.next := nil;
  l:= n;
end;

procedure BList_AddFirst(var l: TList; e: TElem);
var
  n: TList;
begin
  new(n);
  n^.info := e;
  n^.next := L;
  L := n;
end;

procedure ZList_AddFirst(L: TList; e: TElem);
var
  n: TList;
begin
  BList_AddFirst(L^.next, e);
end;

procedure ZList_AddLast(L:TList; e: TElem);
begin
  while L^.next <> nil do L:= L^.next;
  new(L^.next);
  L:=L^.next;
  L^.info := e;
  L^.next := nil;
end;

procedure Insert_After(L:TList; n: integer; e: TElem);
var
  i: integer;
  p: TList;
  tmp: TList;
begin
  i:= 0;
  p:= L;
  while (i<n) and (p^.next <> nil) do
    begin
      inc(i);
      p:= p^.next;
      writeln(i, '=>', p^.info);
    end;
  if (i<n) then
    begin
      writeln('неудача');
      exit;
    end
  else if (p^.next = nil) then
    begin
      new(p^.next);
      p:=p^.next;
      p^.info := e;
      p^.next := nil;
    end
  else
    begin
      new(tmp);
      tmp^.info := e;
      tmp^.next := p^.next^.next;
      p^.next := tmp;
      writeln('yes');
    end;
//  ZList_DelItem := found;
end;

function Get_Item(L:TList; n: integer): TElem;
var
  i: integer;
  p: TList;
begin
  i:= 0;
  p:= L;
  while (i<n) and (p^.next <> nil) do
    begin
      inc(i);
      p:= p^.next;
    end;
  if (i<n) then
    Get_Item := -MaxInt-1
  else
    Get_Item := p^.info;
end;

function List_Length(L:TList): integer;
var
  i: integer;
begin
  i:= 0;
  L:= L^.next;
  while (L <> nil) do
    begin
      L:= L^.next;
      inc(i);
    end;
  List_Length := i;
end;

function ZList_DelItem(L: TList; e: TElem): boolean;
var
  n: TList;
  p: TList;
  found: boolean;
begin
  found := false;
  p:= L;
  while not found and (p^.next <> nil) do
    if p^.next^.info = e
      then found := true
      else p:= p^.next;
  if found then
    begin
      n:= p^.next;
      p^.next := n^.next;
      dispose(n);
    end;
  ZList_DelItem := found;
end;

procedure BList_Print(L:TList);
begin
  write('<');
  while (L <> nil) do
    begin
      write(L^.info);
      if (L^.next <> nil) then write('.');
      L:= L^.next;
    end;
  writeln('>');
end;

procedure ZList_Print(L: TList);
begin
  BList_Print(L^.next);
end;

procedure List_Clear(var L:TList);
var
  n: TList;
begin
  while (L <> nil) do
    begin
      n:= L;
      L := L^.next;
      dispose(n);
    end;
end;

const
  FirstElem = 4444;
var
  a, b: TList;
  e: TElem;
  i: integer;
begin
  ZList_Init(a);
  ZList_Init(b);
  for i:= 1 to 10 do
    begin
      ZList_AddLast(a, i*2-1);
      write('a=>', List_Length(a));
    end;

  for i:= 1 to 10 do
    ZList_AddLast(b, i*2);

{  ZList_AddFirst(L, FirstElem);}
{  for i:= 1 to 10 do}
{    ZList_AddLast(L, i);}
  ZList_Print(a);
  insert_after(a,10,4);
  ZList_Print(a);
  ZList_Print(b);
  for i:=1 to 12 do
    writeln(Get_Item(a,i));

  List_Clear(a);
  List_Clear(b);

  readln;
end.

program p178478;
{ Создать два списка. Выдать списки. Добавить поэлементно элементы второго
списка после каждого элемента первого списка. Если во втором списке количество
элементов больше, чем количество элементов в первом,
оставшиеся элементы не добавлять
}
{ RFPRO, lamed }

// Программирование на языке Pascal. Задачник. Под ред. Усковой О.Ф.
// СПб: Питер, 2003
// В программе рассматриваются списки с заглавным звеном, или, "со сторожем"
// Процедуры ZLIst_Init, ZList_AddLast, BList_Print, ZList_Print, List_Clear
// принадлежат Усковой О.Ф. Глава 15. Задание 1
// Префикс Z относится к обработке с заглавным звеном
// Префикс B - без заглавного звена

const
  ERROR = -MaxInt - 1; // Возвращаемая ошибка, если не найден элемент списка
                       // только для целых чисел
  name_a = 'a.dat';    // файлы данных для первого
  name_b = 'b.dat';    // и второго списков
type
  TElem = integer; // Тип информационной части
  TList = ^TNode;  // Представление списка
  TNode = record   // Звено списка
    info: TElem;   // Информационная часть
    next: TList;   // Следующий элемент
  end;
  TElemFile = file of TElem; // Тип файла для хранения информационных частей

procedure Files_Create(name_a, name_b: string);
// Создание файлов
// для удобства тестирования в файл a записываются нечетные числа,
// в файл b - четные
var
  i, n: integer;
  file_a, file_b : TElemFile;
begin
  assign(file_a, name_a);
  assign(file_b, name_b);
  Randomize;

  // Количество элементов задается случайным образом
  rewrite(file_a);
  for i:= 1 to Random(20)+1 do
    write(file_a,i*2-1);
  close(file_a);

  rewrite(file_b);
  for i:= 1 to Random(20)+1 do
    write(file_b,i*2);
  close(file_b);
end;

procedure ZList_Init(var L: TList);
// Инициализация списка с заглавным звеном
var
  n: TList;
begin
  new(n);
  n^.next := nil;
  l:= n;
end;

procedure ZList_AddLast(L:TList; e: TElem);
// Добавление элемента в конец списка с заглавным звеном
begin
  while L^.next <> nil do L:= L^.next;
  new(L^.next);
  L:=L^.next;
  L^.info := e;
  L^.next := nil;
end;

procedure Insert_After(L:TList; n: integer; e: TElem);
// Вставка элемента в список с заглавным звеном
// после элемента с номером n
var
  i: integer;
  p: TList;
  tmp: TList;
begin
  i:= 0;
  p:= L;
  while (i<n) and (p^.next <> nil) do
    begin
      inc(i);
      p:= p^.next;
    end;
  if (i<n) then
    begin
      writeln('неудача');
      exit;
    end
  else if (p^.next = nil) then
    begin
      new(p^.next);
      p:=p^.next;
      p^.info := e;
      p^.next := nil;
    end
  else
    begin
      new(tmp);
      tmp^.info := e;
      tmp^.next := p^.next;
      p^.next := tmp;
    end;
end;

function Get_Item(L:TList; n: integer): TElem;
// Получение элемента списка с заглавным звеном по номеру
var
  i: integer;
  p: TList;
begin
  i:= 0;
  p:= L;
  while (i<n) and (p^.next <> nil) do
    begin
      inc(i);
      p:= p^.next;
    end;
  if (i<n) then
    Get_Item := ERROR
  else
    Get_Item := p^.info;
end;

function List_Length(L:TList): integer;
// Вычисление длины списка с заглавным звеном
var
  i: integer;
begin
  i:= 0;
  L:= L^.next;
  while (L <> nil) do
    begin
      L:= L^.next;
      inc(i);
    end;
  List_Length := i;
end;

procedure BList_Print(L:TList);
// Печать списка без заглавного звена
begin
  write('<');
  while (L <> nil) do
    begin
      write(L^.info);
      if (L^.next <> nil) then write('.');
      L:= L^.next;
    end;
  writeln('>');
end;

procedure ZList_Print(L: TList);
// Печать списка c заглавным звеном
begin
  BList_Print(L^.next);
end;

procedure List_Clear(var L:TList);
// Удаление списка
var
  n: TList;
begin
  while (L <> nil) do
    begin
      n:= L;
      L := L^.next;
      dispose(n);
    end;
end;

procedure FileToList(fname: string; var L: TList);
// Чтение файла в список
var
  e: TElem;
  f: TElemFile;
begin
  assign(f, fname);
  if not FileExists(fname) then
    exit;
  reset(f);
  while not eof(f) do
    begin
      read(f, e);
      ZList_AddLast(L, e);
    end;
  close(f);
end;

procedure KbdToList(var L: TList);
// Чтение с клавиатуры в список
var
  e: TElem;
  f: TElemFile;
  i, n: integer;
begin
  write('n=');
  readln(n);

  if n>=1 then begin
    for i:= 1 to n do begin
      write('e=');
      readln(e);
      ZList_AddLast(L,e);
    end;
  end
  else
    writeln('Нет данных');
end;

var
  a, b: TList; // списки
  e: TElem;    // элемент типа информационной части
  i: integer;  // счетчик припроходе по циклу слияния списков
  len_a, len_b: integer; // длина первого списка

begin // главная программа
////  Files_Create(name_a, name_b);
  
  ZList_Init(a);
  writeln('Ввод списка a');
  KbdToList(a);
////  FileToList(name_a, a);

  ZList_Init(b);
  writeln('Ввод списка b');
  KbdToList(b);
////  FileToList(name_b, b);


  len_a := List_Length(a);
  len_b := List_Length(b);
  if (len_a=0) or (len_b=0) then begin
    if (len_a=0) then
      writeln('Список a пуст');
    if (len_b=0) then
      writeln('Список b пуст');
  end
  else begin
    writeln('Начальные значения');
    write('a=>');
    ZList_Print(a);
  
    write('b=>');
    ZList_Print(b);

    len_a := List_length(a);
    i:= 1;
    e:= Get_Item(b,i);
    while (i<=len_a) and (e <> ERROR) do begin
      Insert_After(a,2*i-1,e);
      inc(i);
      e:= Get_Item(b,i);
    end;

    writeln('После вставки');
    write('a=>');
    ZList_Print(a);
  end;

  List_Clear(a);
  List_Clear(b);

end.