діть фільм'); (nf); fil <> nil dofil ^. NAZV = nf then ('список назва студії '); (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_sp <> fil ^. ukaz_sp
s2: tfilm; ('введіть назву країни');
readln (nstr); str ^. NAZV <> nstr do: = str ^. next; str = nil then
begin ('країна не знайдена');
break;;; str ^. next ^. ukaz_st <> str ^. ukaz_st do ('список студій:'); and (s ^. next ^. ukaz_f <> s2) dos2 ^. next ^. ukaz_ac <> s2 ^. ukaz_ac do
begin
writeln ('список акторів:');
na do ^. Ukaz_ac: = fil ^. Ukaz_ac ^. Next; fil ^. Ukaz_ac = nil then
begin ('актор не знайдений');;;; ('актор знімався в даному фільмі:');
writeln (fil ^. NAZV, fil ^. ZHANR, fil ^. BUDGET, fil ^. TIMEV);; {zapros6} zapros7; nf: string; ('Введіть фільм'); (nf ); fil ^. NAZV <> nf do: = fil ^. next; fil = nil then
begin ('фільм не знайдений');
break;;; std ^. next ^. ukaz_f <> std ^. ukaz_f do
begin ('фільм знімався на даній студії:');
begin ('фільм знімався в даній країні:');
na do: = ac ^. Next; ac = nil then
begin ('актор не знайдений');
break;;; fil ^. next ^. ukaz_ac <> fil ^. ukaz_ac do ^. ukaz_ac: = fil ^. ukaz_ac ^. next; std ^. next ^. ukaz_f <> std ^. ukaz_f do
begin ('актор знімався на даній студії:');
# 49: begin clrscr; zapros1; readkey; end;
# 50: begin clrscr; zapros2; readkey; end;
# 51: begin clrscr; zapros3; readkey; end;
# 52: begin clrscr; zapros4; readkey; end;
# 53: begin clrscr; zapros5; readkey; end;
# 54: begin clrscr; zapros6; readkey; end;
# 55: begin clrscr; zapros7; readkey; end;
# 56: begin clrscr; zapros8; readkey; end;; key = # 27;.
ДОДАТОК 2
Тексти вхідних файлів
Файл strstd.dat
Австралія
Канберраpictures
Канада
ОттаваBrothers
