Изменить программу работы с базой данных абонентов библиотеки

program spiski;
 
type
  Bilet = ^BiletChitatel;
  BiletChitatel = record 
    NamberBileta: string[100];
    Abonent: string[25];
    DataVidhi: String[20]; 
    ColDey: string[5]; 
    Avtor: string[200]; 
    Nazvania: string[200];
    God: string[15]; 
    Cena: string[200];  
    adr: Bilet;
  end;
 
procedure out1(ph: BiletChitatel);
begin
  Writeln('************************************************************');
  writeln('Номер Читательского Билета:', ph.NamberBileta);
  Writeln('************************************************************');
  writeln('Фамилия Абонента:', ph.Abonent);
  Writeln('************************************************************');
  writeln('Дата Выдачи:', ph.DataVidhi);
  Writeln('************************************************************');
  writeln('Количество Дней:', ph.ColDey);
  Writeln('************************************************************');
  writeln('Автор:', ph.Avtor);
  Writeln('************************************************************');
  writeln('Название:', ph.Nazvania);
  Writeln('************************************************************');
  writeln('Год Издания:', ph.God);
  Writeln('************************************************************');
  writeln('Цена:', ph.Cena);
  Writeln('************************************************************');
end;
 
function PPS(s: Bilet): boolean;
begin
  if s = nil then begin
    writeln('Список пуст!');
    pps := true;
  end
  else pps := false;
end;
 
procedure OUT(S: Bilet);
var
  cursor: Bilet;
begin
  Writeln('Чтение списка:');
  cursor := S;   
  if PPS(S) then exit; 
  while cursor <> nil do 
  begin
    out1(cursor^); 
    cursor := cursor^.adr
  end;
end;
 
 
procedure find(ph: Bilet; key: string);
var
  cursor: Bilet;
begin
  writeln('Поиск по номеру читательского билета:', key);
  if pps(ph) then exit;
  cursor := ph;
  while(cursor <> nil) and (cursor^.NamberBileta <> key) do
    cursor := cursor^.adr;
  if cursor = nil then writeln('Нет элемента!')
  else out1(cursor^)
end;
 
 
procedure dop(var ph: Bilet; dat: BiletChitatel);
var
  nw, cursor, BiletChitatel: Bilet;
  key: string;
begin
  cursor := ph;
  BiletChitatel := nil;
  key := dat.NamberBileta;
  New(nw);
  Nw^ := dat;
  while(cursor <> nil) and (cursor^.NamberBileta <> key) do
  begin
    BiletChitatel := cursor;
    cursor := cursor^.adr;
  end;
  Nw^.adr := cursor;
  if BiletChitatel = nil then ph := nw
  else BiletChitatel^.adr := nw;
end;
 
 
procedure ud(var ph: Bilet; key: string);
var
  cursor, BiletChitatel: Bilet;
begin
  writeln('Удаление ', key);
  if pps(ph) then exit;
  cursor := ph;
  BiletChitatel := nil;
  while(cursor <> nil) and (cursor^.DataVidhi <> key) do 
  begin
    BiletChitatel := cursor;
    cursor := cursor^.adr;
  end;
  if cursor = nil then begin
    writeln('Нельзя удалить!');
    exit;
  end;
  if BiletChitatel = nil then
  begin
    ph := cursor^.adr;
  end
      else
  begin
    writeln('Удаление первого элемента:');
    BiletChitatel^.adr := cursor^.adr;
  end;
  dispose(cursor);
end;
 
 
procedure del(ph: Bilet);
var
  cursor, BiletChitatel: Bilet;
begin
  if pps(ph) then exit;
  cursor := ph;
  BiletChitatel := nil;
  while cursor <> nil do 
  begin
    BiletChitatel := cursor;
    cursor := cursor^.adr;
    dispose(BiletChitatel);
  end;
  Ph := nil;
end;
 
var
  key: string; 
  list: Bilet; 
  zapis: BiletChitatel;
  i, j: integer;
 
begin
  list := nil;
  while True do 
  begin
    Writeln('##############################################');
    Writeln('**********************************************');
    writeln('Выберите нужное действие');
    Writeln('**********************************************');
    writeln('1 - Поиск по номеру читательского билета.'); 
    Writeln('**********************************************');
    writeln('2 - Удаление названия.');
    Writeln('**********************************************');
    writeln('3 - Добавить запись.');
    Writeln('**********************************************');
    writeln('4 - Выберите запись которую нужно вывести.');
    Writeln('**********************************************');
    writeln('5 - Чтение всех записей.');
    Writeln('**********************************************');
    writeln('6 - Выход.');
    Writeln('**********************************************');
    Writeln('##############################################');
    write('Введите №:');
    read(i);
    readln();
    case i of 
      1: 
        begin
          Writeln('##############################################');
          write('Введите номер читательского билета для поиска:');
          read(key);
          read();
          find(list, key);
          Writeln('##############################################');
        end;
      2: 
        begin
          Writeln('##############################################');
          write('Введите Номер Читательского Билета, которого надо удалить:');
          read(key);
          read();
          ud(list, key);
          writeln('Запись с номером читательского билета ', key, ' был удален, остались записи:');
          out(list);
          Writeln('##############################################');
        end;
      3: 
        begin
          Writeln('************************************************************');
          Write('Номер Читательского Билета:');
          Readln(Zapis.NamberBileta);
          Writeln('************************************************************');
          Write('Фамилия Абонента:');
          Readln(Zapis.Abonent);
          Writeln('************************************************************');
          Write('Дата Выдачи:');
          Readln(Zapis.DataVidhi);
          Writeln('************************************************************');
          Write('Количество Дней:');
          Readln(Zapis.ColDey);
          Writeln('************************************************************');
          Write('Автор:');
          Readln(Zapis.Avtor);
          Writeln('************************************************************');
          Write('Название:');
          Readln(Zapis.Nazvania);
          Writeln('************************************************************');
          Write('Год Издания:');
          Readln(Zapis.God);
          Writeln('************************************************************');
          Write('Цена:');
          Readln(Zapis.Cena);
          dop(list, zapis);
          Writeln('************************************************************');
          out(list);
        end;
      4:
        begin
          write('Выберите, какую запись вывести на экран:');
          read(j);
          read();
        end;
      5: 
        begin
          Writeln('##############################################');
          writeln('Вывод всех записей которые есть в базе данных:');
          out(list);
          Writeln('##############################################');
        end;
      6: break;
    end;
  end;
end.