1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52
53. 53
54. 54
55. 55
56. 56
57. 57
58. 58
59. 59
60. 60
61. 61
62. 62
63. 63
64. 64
65. 65
66. 66
67. 67
68. 68
69. 69
70. 70
71. 71
72. 72
73. 73
74. 74
75. 75
76. 76
77. 77
78. 78
79. 79
80. 80
81. 81
82. 82
83. 83
84. 84
85. 85
86. 86
87. 87
88. 88
89. 89
90. 90
91. 91
92. 92
93. 93
94. 94
95. 95

type BOOK= record
      Name:string[20];
      Avtor:string[20];
      Price:integer;
      end;

 BOOKS=Array[1..100] of BOOK;
 F= File of BOOK;
procedure Vvod(var biblioteka: books; var File_tBIBL:F; var n:integer);
Procedure AVTOR_KN(VAR File_tBIBl:F; VAR File_tBIBl_AVTOR:text);
Procedure TIP_TEXT(VAR File_tBIBl:F; VAR File_tBIBl_text:text);
Function MIN_CENA( var File_tBIBl:F ; n:integer ):integer;
procedure Vvod(var biblioteka: books; var File_tBIBL:F; var n:integer);
  var i:integer;
  begin
   rewrite(File_tBIBL);

  FOR i:=1 to n do begin
                 Writeln('  Vvedite nazvanie knigi');
                   readln(biblioteka[i].Name);
                 Writeln('  Vvedite avtora');
                   readln(biblioteka[i].Avtor);
                 Writeln('  Vvedite cenu');
                   readln(biblioteka[i].Price);
                 Write(File_tBIBL,biblioteka[i]);
                 writeln;
                   end;
  close(File_tBIBL);
  end;

  Procedure TIP_TEXT(VAR File_tBIBl:F; VAR File_tBIBl_text:text);
   var BIBLIOTEKA:BOOk;

     BEGIN

   reset(File_tBIBl);
   rewrite(File_tBIBl_text);

   WHILE not eof(File_tBIBl) do begin
                                read(File_tBIBl,BIBLIOTEKA);
                                writeln(File_tBIBl_text,BIBLIOTEKA.Name);
                                writeln(File_tBIBl_text,BIBLIOTEKA.Avtor);
                                writeln(File_tBIBl_text,BIBLIOTEKA.Price);
                                writeln(File_tBIBl_text);
                                writeln(File_tBIBl_text);
                                end;
   close(File_tBIBl);
   close(File_tBIBl_text);
   end;

  Procedure AVTOR_KN(VAR File_tBIBl:F; VAR File_tBIBl_AVTOR:text);
   var BIBLIOTEKA:BOOk; Av:string;

     BEGIN


   reset(File_tBIBl);
   rewrite(File_tBIBl_AVTOR);

   Writeln('Vvedite iskomogo avtora');
   readln(Av);

 WHILE not eof(File_tBIBl) do   begin
                                read(File_tBIBl,BIBLIOTEKA);
                                if BIBLIOTEKA.Avtor = Av then begin
                                                             writeln(File_tBIBl_AVTOR,BIBLIOTEKA.Name);
                                                             writeln(File_tBIBl_AVTOR,BIBLIOTEKA.Avtor);
                                                             writeln(File_tBIBl_AVTOR,BIBLIOTEKA.Price:4);
                                                             writeln(File_tBIBl_AVTOR);
                                                             end;
                                end;
   close(File_tBIBl);
   close(File_tBIBl_AVTOR);
    end;

var nomer,i,min:integer;BIBLIOTEKA:BOOks; SIZE:integer;
begin
  reset(File_tBIBl);
 size:=1;
    while  not eof(File_tBIBl) do
        with BIBLIOTEKA[size] do
    begin
        readln(File_tBIBl , BIBLIOTEKA.name);
         Readln(File_tBIBl,BIBLIOTEKA.Avtor);
        readln(File_tBIBl,BIBLIOTEKA.Price);

        inc(size);
    end;
    dec(size);
 min:=BIBLIOTEKA[1].Price;
for i:=1 to size  do
if BIBLIOTEKA[i].Price< min then        begin
                                        min:=BIBLIOTEKA[i].Price;
                                        nomer:=i;
                                        end;