о місяця року:=false; ( Введіть Назву файлу ); (filename); filename lt; gt; then beginfileexists (filename) then begin ( Введіть Країну подорожі ); (tcountry); ( Введіть дату відправлення ); (tdate); (f, filename); (f) ;: =0; ( Країна подорожі | Кількість днів | Дата відправлення | Вид транспорту | Ціна ); ( --------------------------------------------------------------------------- ); not eof (f) do begin (f, ticket); ticket do begin (tcountry=country) and (tdate [1]=date [4]) and (tdate [2]=date [5] ) and (tdate [6]=date [9]) and (tdate [7]=date [10]) then begin (country: 8, , | , days: 15, raquo ;, | , date: 18, , | , , transport: 7, , | , price: 5); scroll then break;:=p + 1 ;;;; (f); (p=0) then writeln ( Відповідні тури відсутні ); ( Віконаті запит ще раз? ); (yn); (yn= Так ) or (yn= ТАК ) or (yn= так ) or (yn= так ) or (yn= ТАк ) or (yn= так ) or (yn= ТаК ) or (yn= так ) then next:=true else next:=false; else begin ( Такого файлу не існує! Ввести Назву файлу ще раз? Raquo;); (yn); (yn= Так ) or (yn= ТАК ) or (yn= так ) or (yn= так ) or (yn= ТАк ) or (yn= так ) or (yn= ТаК ) or (yn= так ) then next:=true ;;; next=false ;; inf2;// процедура ля Виведення на екран информации довідкі2, а самє Переліку турів, де довшіх заданої кількості днів:=false; ( Введіть Назву файлу ); (filename); filename lt; gt; then beginfileexists (filename) then begin ( Введіть Кількість днів ); (tdays); (f, filename); (f);:=0; ( Країна подорожі | Кількість днів | Дата відправлення | Вид транспорту | Ціна ); ( ---------------------------------------------------------------------------- ); not eof (f) do begin (f, ticket); ticket do begin (days gt; tdays) then begin (country: 8, , | , days: 15, , | , date: 18, raquo ;, | , , transport: 7, , | , price: 5); scroll then break;:=p + 1 ;;;; (f); (p =0) then writeln ( Відповідні тури відсутні ); ( Віконаті запит ще раз? ); (yn); (yn= Так ) or (yn= ТАК ) or (yn = так ) or (yn= так ) or (yn= ТАк ) or (yn= так ) or (yn= ТаК ) or (yn= так ) then next:=true else next:=false; else begin ( Такого файлу не існує! Ввести Назву файлу ще раз? ); (yn); (yn= Так ) or (yn= ТАК ) or (yn= так ) or (yn= так ) or (yn= ТАк ) or (yn= так ) or (yn= ТаК ) or ( yn= так ) then next:=true ;;; next=false ;; inf3;// процедура для Виведення на екран информации довідкі3, а самє Переліку турів заданого годинного діапазону та цінового обмеження:=false; ( Введіть Назву файлу ); (filename); filename lt; gt; then beginfileexists (filename) then begin ( Введіть Кількість днів ); (tdays); ( Введіть Ціну ); (tprice); (f, filename); (f);:=0; ( Країна подорожі | Кількість днів | Дата відправлення | Вид транспорту | Ціна ); ( ---------------------------------------------------------------------------- ); not eof (f) do begin (f, ticket); ticket do begin (tdays lt;=days) and (tprice lt;=price) then begin (country: 8, , | , days: 15, , | , date: 18, , | , , transport: 7, , | , price: 5) ; scroll then break;:=p + 1 ;;;; (f); (p=0) then writeln ( Відповідні тури відсутні ); ( Віконаті запит ще раз? ); (yn); (yn= Так ) or (yn= ТАК ) or (yn= так ) or (yn= так ) or (yn= ТАк ) or (yn= Так ) or (yn= ТаК ) or (yn= так ) then next:=true else next:=false; else begin ( Такого файлу не існує! Ввести Назву файлу ще раз? Raquo;); (yn); (yn= Так ) or (yn= ТАК ) or (yn= так ) or (yn= так ) or (yn= ТАк ) or (yn= так ) or (yn= ТаК ) or (yn= так ) then next:=true ;;; next=false ;; delete;// процедура для відалення записів Із файлу:=false; ( Введіть Назву файлу ); (filename); filename lt; gt; then beginfileexists (filename) then begin ( Введіть номер запису, Який нужно ВИДАЛИТИ ); (n); (f, filename); (f); (filesize (f) gt;=n) and (n gt; 0) then begin (f, n - 1); i:=n - 1 to filesize (f) - 2 do begin (f, i + 1); (f, ticket); (f, i); (f, ticket) ;; (f, filesize (f) - 1); (f); (f); else begin ( У файлі немає даного записів ); ( Віконаті запит ще раз? ); (yn); (yn= Так ) or (yn= ТАК ) or (yn= так ) or (yn= так ) or (yn= ТАк ) or (yn= Так ) or (yn= ТаК ) or (yn= так ) then next:=true else next:=false ;; else begin ( Такого файлу не існує! Ввести Назву файлу ще раз? raquo ;); (yn); (yn= Так ) or (yn= ТАК ) or (yn= так ) or (yn= так ) or (yn= ТАк ) or (yn= так ) or (yn= ТаК ) or (yn= так ) then next:=true ;;; next=false ;; edit;// процедура для редагування записів файлу:=false; ( Введіть Назву файлу ); (filename); filename lt; gt; then beginfileexists (filename) then begin ( Введіть номер запису, Який нужно відредагуваті ); (n); (f, filename); (f); (filesize (f) gt;=n) and (n gt; 0) then begin (f, n - 1); ( Редагуваті Назву країни? ); (yn); ticket do begin (yn= Так ) or (yn= ТАК ) or (yn= laquo ; так ) or (yn= так ) or (yn= ТАк ) or (yn= так ) or (yn= ТаК ) or (yn= так ) then begin ( Введіть нову Назву країни ); (country); (f, ticket); else ( Редагуваті Кількість днів? ); (yn); (yn= Так ) or (yn= laquo ; ТАК) or (yn= так ) or (yn= так ) or (yn= ТАк ) or (y...
