Добавить несколько возможностей в программу

type
  tString=string[30];
   {Тип даних для списку}
  pList=^tList;
  tList=record
    nomer:tString;{Номер книги}
    name:tString;{Назва книги}
    autor:tString;{Автор книги}
    year:integer;{Год виписку книги}
    count:integer;{Кількість}
    next:pList;{Вказати на наступний елмент списку}
    end;
{Глобальне використання}
var
  first,last:pList;
  z:tList;
  b:pList;{вказівник на голову списка}
  c:char;{символьна змінна меню}
{процедура зрахування одного символу}
procedure LoadChar;
  begin
    readln(c);{Читаємо символ меню}
    c:=UpCase(c);{преобразовываем к верхнему регистру}
  end;
{Процедура відобреження дій в консолі}
procedure Show(z:pList);
  begin
    writeln;
    writeln('Avtor:':10,z^.autor:30);{Виводимо автора книг}
    writeln('Nazva knugu:':10,z^.name:30);{Виводимо назву книги}
    writeln('Nomer:':10,z^.nomer:30);{Виводимо номер книги}
    writeln('Rik:':10,z^.year:10,'Kilkist:':10,z^.count:10);{Виводимо рік та їх кількість}
  end;
{Процедура створення нової книги}
procedure CreateRecord;
  var
    z:pList;
  begin
    new(z);{Нова книга}
    repeat
      write('Vvedit nomer:');readln(z^.nomer);{Задаємо код книзі}
      write('Vvedit avtora:');readln(z^.autor);{Задаємо автора книзі}
      write('Vvedit nazvu:');readln(z^.name);{Задаємо назву книзі}
      write('Vvedit rik:');readln(z^.year);{Задаємо рік випуску книги}
      write('Vvedit kilkist:');readln(z^.count);{Задаємо кількість книг}
      write('Pidtverdit informciy:');{Перевірка введеної інформації}
      Show(z);{Виводимо те що ми ввели}
      write('Yaksho vse virno, vvedit "y"');{Підтвердження дії введеня}
      LoadChar;{Задаємо підтвердження}
    until c='Y';
    z^.next:=b;{Нову книгу додаємо до списку}
    b:=z;
  end;
  
 
{{Процедура виведення інформаціїї о книзі}
procedure ListBase;
  var
    z:pList;
  begin
    z:=b;{Вказівник в початок списку}
    while z<>nil do{Пока не продивилися всю базу}
      begin
        Show(z);{Виводимо поточний елемент списку}
        z:=z^.next;{Переходимо до наступного}
      end;
  end;
begin
  b:=nil;{Список пустий}
  repeat
    writeln;{Виводимо меню}
    writeln('Menu:');
    writeln('n-Novaya knuga;');
    writeln('b-Vyvod bazy;');
    writeln('d-vzyati knigy;');
    writeln('z-Zminiti danni');
    writeln('q-Vuhid iz programmy');
    write('Vuberit potrbnii punkt ta nazhmit ENTER:');
    LoadChar;{Читаємо режим роботи}
    case c of{Викликаєм потрібну процедуру}
      'N':CreateRecord;
      'B':ListBase;
      end;
  until c='Q';
  end.