Вставить элемент в конец списка

type
  
  List = ^TList;{Указатель на элемент типа TList}
  TList = record {описываем динамическую структуру через запись}
    data: integer;  {данные, хранимые в элементе}
    next,    {указатель на следующий элемент списка}
    prev: List;   {указатель на предыдущий элемент списка}
  end;
 
var
  nach, ends: List;
  i, a: integer;
 
procedure Paste(spis: List);{процедура вставки элемента на n-ю позицию}
var
  nov: List;{локальные переменные}
  i: byte;
begin
  for i := 1 to 7 do {переходим на позицию, после которой необходимо вставить элемент}
    spis := spis^.next;
  new(nov); {создаем новый элемент списка}
  nov^.data := 555;{заносим данные}
  nov^.next := spis^.next;{изменяем указатели}
  spis^.next := nov;
end;
 
procedure Print(spis1: List);{процедура вывода списка}
begin
  if spis1 = nil then {если список пуст, выдаем соответствующее сообщение}
  begin
    writeln('Список пуст.');
    exit;
  end
  else begin {иначе, выводим его}
    while spis1 <> nil do
    begin
      Write(spis1^.data, '  ');
      spis1 := spis1^.next
    end;
  end;
end;
 
 
begin
  for i := 1 to 19 do {заполняем список 19-ю элементами}
  begin
    a := random(24) - 4;{генерируем случайное число в диапазоне   [-4, 23 ]}
    if nach = nil then {не пуст ли список, если пуст, то}
    begin
      new(nach); {создаём элемент, указатель nach уже будет иметь адрес}
      nach^.next := nil; {зануляем указатели}
      nach^.prev := nil; 
      ends := nach; {изменяем указатель конца списка}
    end
    else {если список не пуст}
    begin
      new(ends^.next); {создаём новый элемент}
      ends^.next^.prev := ends; {связь нового элемента с последним элементом списка}
      ends := ends^.next;{конец списка изменился и мы "переставляем" указатель}
      ends^.next := nil; {не забываем "занулять" указатели}
    end;
    ends^.data := a;{заносим данные}
  end;
  Print(nach);
  writeln;
  Paste(nach);
  Print(nach);
  writeln;
end.