{Разработать базу данных "Детская библиотека" (Фамилия, имя, отчество, автора книги, название книги, 
город и издательство, год выпуска). Вывести на экран данные о книгах, выпущенных в 1995 году.}

Program pr_12;
   uses crt;
   type person=record
   sname,name,otc,avtr,nb,pub,year:string[14];
   end;
   
   var  rbook:array[1..20] of person;
   f1,f2:text; i,n:integer;
   st1:string;
   
    BEGIN clrscr;  Assign(f1,'p1.pas');  Rewrite(f1);

           writeln('Введите количество записей'); readln(n);
           for i:=1 to n do with rbook[i]  do  begin
          
	 WRITELN('Фамилия Ребёнка который берёт книгу'); readln(sname); writeln(f1,sname);
         
	WRITELN('Имя Ребёнка который берёт книгу');  readln(name);  writeln(f1,name);

        WRITELN('Отчество  Ребёнка который берёт книгу');  readln(otc);  writeln(f1,otc);

	WRITELN('Автар книги');readln(avtr);   writeln(f1,avtr);

	WRITELN('Название книги');readln(nb);   writeln(f1,nb);

	WRITELN('Издательство -(город и год)');readln(pub);   writeln(f1,pub);

	WRITELN('Год выпуска');readln(year);   writeln(f1,year);

	
end;
         
Assign(f2,'p2.pas');  rewrite(f2); 
st1:='1995';
Writeln('Ф И О Автар книги Название книги Издательство Год выпуска');
Writeln(f2,'Ф И О Автар книги Название книги Издательство Год выпуска');
for i:=1 to n do begin   With rbook[i] do    if year=st1 then       
begin        
Writeln(sname:10,name:10,otc:10,avtr:10,nb:10,pub:10,year:10);       
 Writeln(f2,sname:10,name:10,otc:10,avtr:10,nb:10,pub:10,year:10);     
 end; end;close(f1); Close(f2);readln;  END.