База данных. Библиотека.

   program semestr1;
    label 10,11,12;
   type kol_vo=record
          abon:integer;
          stud_zal:integer;
          nauk_zal:integer;
        end;
        spisok=record
          shifr:integer;
          nazv:string;
          priznak:string;
          author:string;
          god_izd:integer;
          kol:kol_vo;
        end;
        f=file of spisok;
   var
     b:f;
     i, n:integer{количество компонент в файле};
     f1:file of char;
     a:char;     {компоненты логического файла}
 procedure sozd(var h:f);
   var i:integer; j:integer;
       nn:spisok;
   begin
 
     rewrite(h);
          j:=1;
          writeln ('введите сведения о книги №=',j);
          writeln ('название  ');
          with nn,nn.kol do
          begin
          readln(nazv);
          while nazv<>'0' do
            begin
             write ('Введите шифр издания' );
                readln (shifr);
                write ('введите книга это или журнал ');
                readln (priznak);
                write ('назовите автора ');
                readln (author);
                write ('введите год издания  ');
                readln (god_izd);
                write ('количество книг у абонентов  ');
                readln (kol.abon);
                write ('количество книг в читальном зале  ');
                readln (stud_zal);
                write ('количество книг в научном зале  ');
                readln (nauk_zal);
                write(h,nn);
              j:=j+1;
              writeln('введите сведения о  книге №=',j);
              write ('названиие  ');  readln(nazv);
                end;
                end;
          close (h);
          end;
          procedure vivod (const h:f);
          var i:integer;
              nn:spisok;
          begin
          reset (h);
          writeln('=================================================================================================================================================================================================================================================================================================================================================================================================================================================================================');
          writeln ('№':5,'|шифр издания|-':17,'|название издания|-':21,'|признак|-':11,'|автор|-':17,'|год изд.|-':10,'|abon|-':10,'|stud|':10,'|nauk|':10);
          writeln('==========================================================================================================================================================================================================================================================================================================================================================================================================================================================================================');
          i:=1; while not eof(h) do
            begin
            read (h,nn);  writeln;   with nn, nn.kol do
            writeln ('|',i:3,'||',shifr:14,'||',nazv:19,'||',priznak:9,'||',author:15,'||',god_izd:8,'||',abon:8,'||',stud_zal:8,'||',nauk_zal:8,'|');
 
            writeln('-----------------------------------------------------------------------------------------------------------------------------------------');
           i:=i+1;
           end;
          close  (h); readln;
          end;
          procedure poisk1 (var h:f);
            var
              nn:spisok;
              i:integer;
              aut: string;
              god:integer;
              metka:boolean;
              flag:boolean;
            begin
            reset(H);
            writeln('список книг указанного автора выпущенных после определенного года');
            write('введите интересующего вас автора  ');
            readln(aut);
 
            write('Выведите год  ');
            readln(god);
            flag:=true;
            i:=1;
            writeln('список книг ',aut,' выпущенных после ',god,' года');
            writeln('=================================================================================================================================================================================================================================================================================================================================================================================================================================================================================');
            writeln ('|автор|-':17,'|год изд.|-':10,'№':5,'|шифр издания|-':17,'|название издания|-':21,'|признак|-':11,'|abon|-':10,'|stud|':10,'|nauk|':10);
            writeln('==========================================================================================================================================================================================================================================================================================================================================================================================================================================================================================');
 
            while not eof(h) do
              begin
               read(h,nn);
               with   nn,nn.kol do
                 if (author=aut) and (nn.god_izd>god) then
                       begin
                       flag:=false;
                       writeln ('|',author:15,'||',god_izd:8,'||',i:3,'||',shifr:14,'||',nazv:19,'||',priznak:9,'||',abon:8,'||',stud_zal:8,'||',nauk_zal:8,'|');
                       i:=i+1;
                   end;
               end;
               close(h);
                 if flag then
                 writeln('\\\\\\\\\\\\\\\\\\поисk не дал  результатов///////////////////////////');
              end;
              
              
              
              
      
              
              
           begin    10:                                            { }
            assign(b,'c:\Pabcwork\база1.txt');
 
         writeln('            меню             ');
         writeln('1:создание БД');
         writeln('2:вывод БД');
         writeln('3:Вывод списка книг указанного автора, выпущенных после определенного года');
         writeln('4:вывод списка книг указанного автора находящихся на определенном месте');
         writeln('5:выход');
         readln (n);
           case n  of
           1:sozd(b);
           2:vivod(b);
           3:poisk1(b);
           4:poisk2(b);
           5:exit;
           else
           writeln('Ошибка! Повторите выбор. ');
 
           end; goto 10;
            readln;
            end.

 procedure poisk2 (var h:f);
            type abon=integer; stud_zal=integer;nauk_zal=integer;
            var
              nn:spisok;
              n,i:integer;
              aut: string;
              key1:string;
              key2:integer;
 
              flag:boolean;
              begin
            reset(H);
            writeln('список книг указанного автора выпущенных после определенного года');
            write('введите интересующего вас автора  ');
            readln(aut);
            while not eof(h) do
              begin
               read(h,nn);
 
            writeln('укажите место, где вам нужно узнать список книг этого автора');
            writeln('1:   у абонентов');
            writeln('2:   в студенческом читальном зале');
            writeln('3:   в научном зале');
             case n of
            1:      begin key2:=nn.kol.abon;     key1:='abon';  end;
            2:      begin key2:=nn.kol.stud_zal; key1:='stud';  end;
            3:      begin key2:=nn.kol.nauk_zal; key1:='nauk';  end;
            end;
             readln(n); readln(key1);
            flag:=true;
            i:=1;
            writeln('список книг ',aut,' находящихся  в (у)',key1);
            writeln('=========================================================================================================================================================');
            writeln ('№':5,'|шифр издания|-':17,'|название издания|-':21,'|признак|-':11,'|автор|-':17,'|год изд.|-':10,'|',key1:10,'|');
            writeln('==========================================================================================================================================================');
 
                 with  nn,nn.kol do
                 if author=aut  then
                       if       key2=0 then
                       writeln('таких книг нет')
                       else
                       begin
                       flag:=false;
                       writeln ('|',i:3,'||',shifr:14,'||',nazv:19,'||',priznak:9,'||',author:15,'||',god_izd:8,'||',key2:8,'|');
                 {никак не могу добится того что бы у меня программа выводила список книг находящихся на определенном месте}    
 
                   i:=i+1;
                   end;
               end;
               close(h);
                 if flag then
                 writeln('\\\\\\\\\\\\\\\\\\поисk не дал  результатов///////////////////////////');
              end;

 procedure poisk2 (var h:f);
{            type abon=integer; stud_zal=integer;nauk_zal=integer; }
            var
              nn:spisok;
              n,i:integer;
              aut: string;
              key1:string;
              key2:integer;
 
begin    
            reset(H);
            writeln('Поиск книг указанного автора в указанном месте хранения:');
            write('введите интересующего вас автора  ');
            readln(aut);
                 {ВОТ ЭТОТ КУСОК НАВЕРНОЕ ДЛЯ ВСЕГО ПОИСКА, А НЕ ДЛЯ КАЖДОЙ ЗАПИСИ ОТДЕЛЬНО???}
            writeln('укажите место, где вам нужно узнать список книг этого автора');
            writeln('1:   у абонентов');
            writeln('2:   в студенческом читальном зале');
            writeln('3:   в научном зале');
            readln(n);
            {   readln(key1); - это зачем считывать с экрана ?  }
            case n of
            1:  key1:='abon';
            2:  key1:='stud'; 
            3:  key1:='nauk'; 
            end;
            i:=0;
            writeln('список книг ',aut,' находящихся  в (у)',key1);
            writeln('=========================================================================================================================================================');
            writeln ('№':5,'|шифр издания|-':17,'|название издания|-':21,'|признак|-':11,'|автор|-':17,'|год изд.|-':10,'|',key1:10,'|');
            writeln('==========================================================================================================================================================');
 
         while not eof(h) do
         begin
               read(h,nn);
               with nn do 
                if author=aut  then
                begin 
                   case n of
                      1: key2:= kol.abon;   
                      2: key2:= kol.stud_zal; 
                      3: key2:= kol.nauk_zal; 
                      else key2 := 0; 
                    end;
                   if key2>0 then
                   begin  i := i+1; 
                          writeln ('|',i:3,'||',shifr:14,'||',nazv:19,'||',priznak:9,'||',author:15,'||',god_izd:8,'||',key2:8,'|');
                   end;
                end; { of if author = ... }
            end; { of while not eof(f) }    
            close(h);
            if i = 0 then
                writeln('\\\\\\\\\\\\\\\\\\поисk не дал  результатов///////////////////////////');
 end; { of procedure }

function poisk3 (var h:f):integer; {-- Определить    сколько   экземпляров   печатной   продукции находится в определенном месте  }
        var
          nn:spisok;
          s,n,i:integer;
          key1:string;
          key2:integer;
        begin
          s:=0;
          reset(H);
          writeln('Подсчет всех книг в указанном месте хранения:');
          while not eof(h) do
            begin
              read(h,nn);
              with nn.kol do
                begin
                  case n of
                    1: key2:= abon;
                    2: key2:= stud_zal;
                    3: key2:= nauk_zal;
                  else
                    key2 := 0;
                  end;
                    s:=s+key2;
                    i := i+1;
                end;
            end; { of if author = ... }
        end; { of while not eof(f) }
      close (h);
      if i = 0 then
        writeln('\\\\\\\\\\\\\\\\\\поисk не дал  результатов///////////////////////////');
end; { of procedure }