Добавление элемента к концу списка

uses
  crt;
 
const
  n = 4;
 
type
  data = integer;// тип данных
  spisok = ^spisoktype;// указатель
  spisoktype = record // элемент
    number: data; //данные
    next: spisok; // указатель на следующий элемент
  end;
 
var
  tek, tek1: spisok; // текущие указатели
  first, last: spisok; // указатели на первый и последний элементы списка
  answer: integer;
  i, c: word;
 
{вставка элемента в конец}
procedure addlast(var tek, last: spisok; j: word);
var
  point: spisok; {указатель на создаваемый элемент}
  t: spisok;{указатель для просмотра списка}
begin
  New(Point);{создание элемента}
  writeln('Введите элемент: ');
  readln(point^.number);{заполнение данных}
  writeln;
  point^.next := nil;
  if tek = nil then begin{если список был пуст}
    
    tek := point;
    first := tek;
  end 
  else begin{если список не пуст}
    t := tek;
    while (t^.next <> nil) do
      t := t^.next;
    t^.next := point;
    last := point;
  end;
  writeln('Элемент успешно добавлен!');
  writeln;
  
end;
 {вывод всех элементов}
procedure print(var tek: spisok; const first: spisok);
var
  
  d: word;
begin
  d := 0;
  tek := first;
  Writeln('Содержимое списка:');
  if tek = nil then 
    writeln('Список пуст. ')
  else
    while tek <> nil do 
    begin
      inc(d);
      writeln(d, ' элемент списка: ', tek^.number);
      tek := tek^.next;
    end;
end;
 
{Удаление последнего элемента}
procedure dellast(var tek: spisok; var first, last: spisok);
begin
  tek := first;
  {задача указателя  - достичь предпоследнего элемента списка, то есть
   встать перед удаляемым элементом}
  if (tek^.next = nil) then {если в списке остался только один элемент}
    first := nil else
    while (tek^.next^.next <> nil) do
      {переход на следующий элемент}   
      tek := tek^.next;
  {Удаляем последний элемент из списка и освобождаем занимаемую им память}
  dispose(tek^.next);
  {и чтобы список остался в согласованном состоянии, надо, чтобы последний
   элемент (до удаления он являлся предпоследним) ссылался в NIL}
  tek^.next := nil;
  writeln('Элемент успешно удален!');
  writeln;
end;
 {удаление n-го элемента списка}
procedure deln(var tek, first, last: spisok);
var
  key: word; prev, del: spisok;
 
begin
  prev := nil;
  tek := first;
  writeln('Введите значение удаляемого элемента: ');
  
  readln(key); // ключ для поиска элемента
  writeln;
  while tek <> nil do 
    if tek^.number = key then begin{Если обнаружен элемент, который требуется удалить}
      if tek = first then {Если удаляемый элемент является первым элементом списка, то первым элементом списка назначаем следующий элемент}
        first := tek^.next
      {Если удаляемый элемент не является первым элементом списка, то поле
      Next предыдущего элемента теперь должно указывать на элемент, который
      является следующим относительно tek}
      else
        prev^.next := tek^.next;
      {Если удаляемый элемент является последним элементом списка, то последним
           элементом списка назначаем предыдущий элемент}
      if tek = last then
        last := prev; {Указатель на удаляемый элемент}
      del := tek;{Указатель на следующий элемент}
      Dispose(Del); {Освобождение памяти, занятой под элемент}
    end
    else {Переход к следующему элементу списка.}
    begin
      prev := tek;
      tek := tek^.next;
    end;
  writeln('Элемент успешно удален!');
  writeln;
end;
 {сцепление двух списков}
procedure interflow(var tek, tek1, first: spisok);
var
  pred1, first1: spisok;
  f, o, n, g: word;
begin
  
  writeln;
  writeln('Чтобы выполнить сцепление сначала заполните второй список!');
  writeln;
  writeln('Сколько элементов вставляем? '); 
  readln(f);
  writeln;
  new(tek1); // заполнение второго списка
  writeln;
  writeln('Введите элемент: ');
  writeln;
  readln(tek1^.number);
  tek1^.next := nil;
  
  first1 := tek1;
  pred1 := tek1;
  
  for o := 2 to f do 
  begin
    new(tek1);
    writeln('Введите элемент: ');
    writeln;
    pred1^.next := tek1;
    readln(tek1^.number);
    tek1^.next := nil;
    pred1 := tek1;
  end;
  writeln;
  writeln('Первый список: ');
  writeln;
  print(tek, first);
  writeln;
  writeln('Второй список: ');
  writeln;
  n := 0; // вывод второго списка на экран
  tek1 := first1;
  if tek1 = nil then 
    writeln('Список пуст. ')
  else
    while tek1 <> nil do 
    begin
      inc(n);
      writeln(n, ' элемент списка: ', tek1^.number);
      tek1 := tek1^.next;
    end;
    // сцепление первого и второго списков
  tek := first;
  while (tek^.next <> nil) do tek := tek^.next;
  
  tek^.next := first1; {последний элемента первого списка указывает на начало второго}
  tek1 := nil; {анулирование второго списка}
  // вывод сцепленного списка
  writeln;
  writeln('Сцепление: ');
  writeln;
  g := 0;
  tek := first;
  Writeln('Содержимое списка:');
  if tek = nil then 
    writeln('Список пуст. ')
  else
    while tek <> nil do 
    begin
      inc(g);
      writeln(g, ' элемент списка: ', tek^.number);
      tek := tek^.next;
    end;
end;
{Освобождение всех элементов списка}
procedure releaseall(var tek, first: spisok);
var
  temp: spisok;
begin
  tek := first; {указатель на первый элемент}
  while (tek <> nil) do {начинаем просмотр списка от начала до конца}
  begin
    temp := tek^.next; {запоминаем следующий элемент}
    dispose(tek); {освобождаем память текущего}
    tek := temp; {делаем следующий элемент первым(текущим)}
  end;
  first := nil; 
  writeln;
  writeln('Все элементы списка успешно освобождены!');
  writeln;
end;
{инвертирование списка}
procedure invert(var tek, first, last: spisok);
var
  p, t: spisok;
begin
  p := nil;
  last := first;
  while first <> nil do 
  begin
    t := first^.next;
    first^.next := p;
    p := first;
    first := t;
  end;
  first := p;
  writeln;
  writeln('Список успешно инвертирован!');
  writeln;
end;
 
begin
  repeat
    writeln;
    writeln('Выберете пункт меню:');
    writeln;
    writeln('1: Вставка элемента в конец списка');
    writeln('2: Вывод всех элементов на экран');
    writeln('3: Удаление последнего элемента из списка');
    writeln('4: Удаление n-го элемента из списка');
    writeln('5: Сцепление двух списков');
    writeln('6: Освобождение всех элементов списка');
    writeln('7: Инвентировать список');
    writeln('0: Выход');
    writeln;
    readln(answer);
    writeln;
    case answer of 
      1: 
        begin
          writeln('Сколько элементов вставляем? '); 
          readln(c);
          writeln;
          for i := 1 to c do 
            addlast(tek, last, i); 
        end;
      2: print(tek, first);
      
      3: dellast(tek, first, last);
      4: deln(tek, first, last);
      5: 
        begin// проверка на заполненость первого списка
          if first = nil then begin
            writeln;
            writeln('Ошибка, сначала заполните первый список!');
          end else interflow(tek, tek1, first); end;
      6: releaseall(tek, first);   
      7: 
        begin// проверка на заполненость списка
          if (first = nil) or (first^.next = nil) then begin
            writeln;
            writeln('Ошибка, список пуст или имеет один элемент!');
          end else invert(tek, first, last);  end;
    
    end;
  until (answer = 0);
  
end.