Формирование списка + выборка из этого же списка

type
  //автор, наименование книги, город и издательство, год издания, объем в страницах.
  Tinf = record
    author, bookname, town, publishinghouse: string[128];
    year: string[12];
    volume: integer;
  end;
  {тип данных, который будет храниться в элементе списка}
  List = ^TList;{Указатель на элемент типа TList}
  TList = record {А это наименование нашего типа "запись" обычно динамические структуры описываются через запись}
    data: TInf;  {данные, хранимые в элементе}
    next: List;   {указатель на следующий элемент списка}
  end;
 
{Процедура добавления нового элемента в односвязный список}
procedure AddElem(var spis1: List; znach1: TInf);
var
  tmp: List;
begin
  if spis1 = nil then {Проверяем не пуст ли список, если пуст, то }
  begin
    New(spis1);  {создаём его первый элемент}
    tmp := spis1;
  end
  else {в случае если список не пуст}
  begin
    tmp := spis1;
    while tmp^.next <> nil do
      tmp := tmp^.next; {ставим tmp на последний элемент списка}
    New(tmp^.next); {создаём следующий элемент}
    tmp := tmp^.next;   {переносим tmp на новый элемент}
  end;
  tmp^.next := nil; {зануляем указатель}
  tmp^.data := znach1; {заносим значение}
end;
 
{процедура печати списка
полностью расписана при работе со стеком}
procedure Print(spis1: List);
begin
  if spis1 = nil then
  begin
    writeln('Список пуст.');
    exit;
  end;
  while spis1 <> nil do
  begin
    Write(spis1^.data.author, ' ');
    Write(spis1^.data.bookname, ' ');    
    Write(spis1^.data.publishinghouse, ' ');    
    Write(spis1^.data.town, ' ');    
    Write(spis1^.data.year, ' ');    
    Writeln(spis1^.data.volume, ' ');    
    spis1 := spis1^.next
  end;
end;
 
{процедура удаления списка
 полностью расписана при работе со стеком}
procedure FreeStek(spis1: List);
var
  tmp: List;
begin
  while spis1 <> nil do
  begin
    tmp := spis1;
    spis1 := spis1^.next;
    dispose(tmp);
  end;
end;
 
 
var
  Spis: List;
  znach: tinf;
  s, n, i: integer;
  aut: string[128];
 
begin
  Spis := nil;
  s := 0;
  writeln('Введите количество элементов: ');  
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите значение добавляемого элемента: ');
    write('Автор: ');
    readln(znach.author);
    write('Наименование книги: ');
    readln(znach.bookname);
    write('Город: ');
    readln(znach.publishinghouse);  
    write('Издательство: ');
    readln(znach.town);    
    write('Год издания: ');
    readln(znach.year);      
    write('Объем в страницах: ');    
    readln(znach.volume);        
    s := s + znach.volume;
    AddElem(Spis, znach);
  end;
  Print(Spis);
  writeln('Общий объем библиотеки в страницах: ', s);
  writeln('Средняя толщина книги: ', s / n);
  writeln('Выборка из списка по фамилии автора:');
  writeln('Введите фамилию автора: ');  
  readln(aut);
  while spis <> nil do
  begin
    if spis^.data.author = aut then
    begin
      Write(spis^.data.author, ' ');
      Write(spis^.data.bookname, ' ');    
      Write(spis^.data.publishinghouse, ' ');    
      Write(spis^.data.town, ' ');    
      Write(spis^.data.year, ' ');    
      Writeln(spis^.data.volume, ' ');    
      spis := spis^.next
    end;
  end;  
  //Выборка из списка по фамилии автора или по месту издания, или по объёму книги в страницах.   
  readln;
  FreeStek(Spis);
end.