Бд На паскале

Uses CRT;
type
 TBook = record
 Author: string[15];
 Title: string[25];
 Year: integer;
 Kolvo: integer;
 shifr: string[30]
end;
TBaseMass = array[1..255] of TBook;
{процедура формирования новой таблицы}
procedure InputNewBase(var Base:TBaseMass; var NumOfRec:byte);
var i: byte;
    Book: TBook;
    ContinueInput: char;
begin
writeLn;
i:=0;
repeat
 i:=i + 1;
 with Book do
  begin
   write('Введите название ',i,'-ой книги: ');
   readLn(Title);
   write('Введите автора книги ');
   readLn(Author);
   write('Введите количество ',i,'-ой книги: ');
   readLn(Kolvo);
   write('Введите год издания: ');
   readLn(Year);
   write('введите шифр книги: ');
   readln(shifr);
  end;
 Base[i] := Book;
 writeLn('Вводим данные о следующей книге');
 writeLn('Если ввод окончен, то введите ''0''');
 readLn(ContinueInput);
until ContinueInput='0';
NumOfRec:= i;
end;
{запросы}
 
procedure print(i:byte; Base:TBaseMass);
Var j:1..79;
begin
 write(i:5,' |');
 With Base[i] do
 begin
  write(Author:10,' |');
  write(Title:13,' |');
  write(Kolvo:10,' |');
  write(Year:15,' |');
  writeLn(shifr:14,' |');
 end;
 for j:=1 to 79 do
  write('-');
 writeLn;
end;
 
{процедура вывода базы на экран}
procedure OutBase(const Base:TBaseMass; const NumOfRec:byte; PunktOfMenu:byte; s:string;Y:integer);
var i,j: byte;
begin
writeLn;
Clrscr;
if NumOfRec <> 0 then
begin
 writeLn('База данных содержит следующие сведения:');
 for j:=1 to 79 do
  write('-');
 writeLn;
 writeLn('N п/п':6,'| ','Автор':10,'| ','название |':14,
 'количество |':12,'год издания |':17,'шифр |':16);
 for j:=1 to 79 do
  write('=');
 writeLn;
 for i:=1 to NumOfRec do
  with Base[i] do
  begin
   if (PunktOfMenu=1) and (shifr=s) then print(i,Base)
   else if (PunktOfMenu=2) and (Y>Year) then print(i,Base)
   else if PunktOfMenu=0 then print(i,Base);
  end;
end
else writeLn('БД пуста');
end;
 
Procedure Search(Const Base:TBaseMass;NumOfRec:byte);
Var Shifr:string;
    i:byte;
    Y:integer;
begin
if NumOfRec<>0 then
begin
 Writeln('1. Искать по шифру.');
 Writeln('2. Поиск книг выпущенных позднее указанного года.');
 readln(i);
 Shifr:='';
 Y:=0;
 Case i of
  1:begin
     write('Введите шифр книги: ');
     readln(Shifr);
     OutBase(Base,NumOfRec,1,Shifr,0);
    end;
  2:begin
     write('Введите год: ');
     readln(Y);
     OutBase(Base,NumOfRec,2,'',Y);
    end;
 end;
end
else writeln('База данных пуста.');
end;
 
{процедура выводящая главное меню программы}
procedure MainMenu;
var PunktOfMenu: byte;
Base: TBaseMass;
NumOfRec : byte;
begin
NumOfRec := 0;
repeat
 writeLn;
 writeLn('Выберите нужное действие:');
 writeLn('1 - Ввод новой БД');
 writeLn('2 - Вывод БД');
 writeLn('3 - Запрос к БД');
 writeLn('4 - Выход');
 write('Ваш выбор:');
 readLn(PunktOfMenu);
 case PunktOfMenu of
  1: InputNewBase(Base, NumOfRec);
  2: OutBase(Base, NumOfRec,0,'',0);
  3:Search(Base,NumOfRec);
  else
  if PunktOfMenu<>4 then
   writeLn('Введите корректный пункт меню');
 end; {конец case}
until PunktOfMenu = 4;
end;
 
{главная программа}
begin
 MainMenu;
end.

else if (PunktOfMenu=2) and (Y<Year) then print(i,Base)