teger;: tsponsor;; = ^ ACTOR; = record: string;: integer;: tactor;; = ^ FILM ; = record: string;: string;: integer;: integer;: tfilm; _sp: tsponsor; _ac: tactor; P (F2);: = nil;: = nil; (not eof (f )) eof (f) : = Nil;: = nil;: = nil; (not eof (f2)) then (fsp); (ff); (fa);: = fsp;: = ff;: = fa; (f2, ff ^. NAZV); (f2, ff ^. ZHANR); (f2, ff ^. BUDGET); (f2, ff ^. eof (f2) do (ff ^. next);: = ff ^. next; (f2, ff ^. NAZV); (f2, ff ^. ZHANR); (f2, ff ^. BUDGET); (f2, ff ^. (F); (f2);; {Openf} menu;; ('= МЕНЮ =', # 10 # 13,
'1. Видати список фільмів, що вийшли на даній СТУДІЇ в даній країні ', # 10 # 13,
'2. Для даного ФІЛЬМУ і даної СТУДІЇ привести список АКТЕРОВ ', # 10 # 13,
'3. Видати відомості про акторів даної КРАЇНИ, що знімалися в даному ФІЛЬМІ даної СТУДІЇ ', # 10 # 13,
'4. Вказати список всіх СПОНСОРІВ, що вклали гроші в даний ФІЛЬМ даної СТУДІЇ ', # 10 # 13,
'5. Для зазначеної КРАЇНИ привести список СТУДІЙ і АКТЕРОВ ', # 10 # 13,
'6. Видати ФІЛЬМ, де брав участь даний АКТОР ', # 10 # 13,
'7. Для зазначеного ФІЛЬМУ видати КРАЇНУ і СТУДІЮ, де він знімався ', # 10 # 13,
'8. Для даного АКТОРА вказати СТУДІЮ, де він знімався ', # 10 # 13,
'Esc. Вихід ');; {menu} zapros1; nstr, nst: string; (' введіть назву країни '); (nstr); str ^. NAZV <> nstr do: = str ^. Next; str = nil then
begin ('країна не знайдена');;;; ('Введіть назву студії');
readln (nst); std ^. NAZV <> nst do: = std ^. next; std = nil then
begin ('Студія не знайдено');
break;;; std ^. next ^. ukaz_f <> std ^. ukaz_f do ('список фільмів:'); назва студії '); (nst); std ^. NAZV <> nst do: = std ^. next; std = nil then
begin ('студія не знайдена');;;; ('Введіть назву фільму');
readln (nf); fil ^. NAZV <> nf do: = fil ^. next; fil = nil then
begin ('фільм не знайдений');
break;;; fil ^. next ^. ukaz_ac <> fil ^. ukaz_ac do ('список акторів'); (ac ^. FIO, ac ^. GONORAR); ^. ukaz_ac: = fil ^. ukaz_ac ^. next;;; {zapros2} zapros3; nstr, nst, nf: string;
begin ('Введіть назву країни');
readln (nstr); str ^. NAZV <> nstr do: = str ^. next; str = nil then
begin ('країна не знайдена');;;; ('Введіть назву студії');
readln (nst); std ^. NAZV <> nst do: = std ^. next; std = nil then
begin ('Студія не знайдено');
break;;; ('Вве...
