vlad / TURBO P / tp7 / BIN / MAX1

program z1;
uses crt;

  type cinema=record
   name_film:string;
   language:string;
   tematuka:string;
   seans:real;
   rjad,k:byte;
   vartist:integer;
   end;
   f1=file of cinema;
var
   f:f1;
   user_case:byte;
Procedure Fajl(var fz:f1);
Var Y_N:char;
    el:cinema;
    i,k,nom:integer;
 Begin
      assign(fz,'file1');
      reset(fz);
      if ioresult <>0 then

       begin
             rewrite (fz);
             writeln ('Fajl stvoreno uspishno !')
       end;
       writeln('Fajl vidkrito');
       writeln('Vesti novi =( 1 ),zminiti ( 2 ) ? ');
       writeln('nich - 0 ');
       readln (y_n);
       if (y_n='1') or (y_n='2') then
          begin
            if y_n ='1'then
              begin
                 seek(fz,filesize(fz));
                 writeln  ('vedit kilkist novix zapitiv :');
                 readln (k);
                 for i:=1 to k do
                   begin
                     with el do
                       begin
                        write('vvedit nazvu filma:');
                        readln(name_film);
                        write ('vvedit movu filma:');
                        readln(language);
                        write ('vvedit janr filma:');
                        readln(tematuka);
                        write('vvedit seans transliacii ');
                        readln(seans);
                        write('vvedit riad ');
                        readln(rjad);
                        write('vvedit vartist ');
                        readln(vartist);
                       end;
                    write(fz,el);
                      end;

                end
                else
                     if y_n='2' then
begin
writeln  ('vvedit nomer zapisu jakij treba zminiti :');
readln(nom);
seek(fz,nom-1);
with el do
         begin
                        write('vvedit nazvu filma:');
                        readln(name_film);
                        write ('vvedit movu filma:');
                        readln(language);
                        write ('vvedit janr filma:');
                        readln(tematuka);
                        write('vvedit seans transliacii ');
                        readln(seans);
                        write('vvedit riad ');
                        readln(rjad);
                        write('vvedit vartist ');
                        readln(vartist);
                       end;
                    write(fz,el);
                      end;

                      end;
          end;

Procedure Tab1;
   begin
writeln(' //====================================================\\ ');
writeln('//  NAZVA ||  MOVA  || Janr || SEANS || Riad || VARTIST \\');
writeln('\\======================================================//');
end;
{
Procedure Rfajl(var fz:f1);
var el:cinema;
begin
 tab1;
 seek(fz,0);
while not eof(fz) do
  begin
  read(fz,el);
writeln('||  ',name_film:14,'  ||', language:6,' || ',tematika:8, '||', seans:7:2, '||' ,rjad:4, ' ||',vartist:5,' ||');
end;
writeln('\\======================================================//');
end;
}
Procedure d1(var fz:f1);
var el:cinema;
Seansx:integer;
begin
writeln('Vvedit seans');
readln(seansx);
writeln(");
writeln;
tabl;
seek(fz,0);
while not eof(fz) do
  begin
  read(fz,el);
if el.seans=seansx then
begin
  with el do
writeln('||  ',name_film:14,'  ||', language:6,' || ',tematika:8, '||', seans:7:2, '||' ,rjad:4, ' ||',vartist:5,' ||');
end;
writeln('\\======================================================//');
end;
end;

Procedure d2(var fz:fl);
var el:cinema;
languagex,tematukax :string;
begin
writeln('Vvedit movu :');
readln(languagex);
writeln('Vvedit tematiku :');
readln(tematukax);
writeln('filmi shco vidpovdajut');
writeln;
tabl;
seek(fz,0);
while not eof(fz) do
  begin
  read(fz,el);
if (el.languagex=languagex)and (el.tematukax=tematukax)then
begin
with el do
writeln('||  ',name_film:14,'  ||', language:6,' || ',tematika:8, '||', seans:7:2, '||' ,rjad:4, ' ||',vartist:5,' ||');
end;
writeln('\\======================================================//');
end;
end;

Procedure d3(var fz:fl);
var el:cinema;
tematukax :string;
rjadx:byte;
begin
writeln('Vvedit tematiku :');
readln(tematukax);
writeln('Vvedit riad vilnij :');
readln(rjadx);
writeln('filmi shco vidpovdajut');
writeln;
writeln('filmi shco vidpovdajut');
writeln;
tabl;
seek(fz,0);
while not eof(fz) do
  begin
  read(fz,el);
if (el.rjadx=rjadx)and (el.tematukax=tematukax)then
begin
with el do
writeln('||  ',name_film:14,'  ||', language:6,' || ',tematika:8, '||', seans:7:2, '||' ,rjad:4, ' ||',vartist:5,' ||');
end;
writeln('\\======================================================//');
end;
end;


begin clrscr;
Fajl(f);
repeat clrscr;
writeln('viberit odin z punktiv menu :');
writeln('1 vsio');
writeln('2 po seaansno');
writeln('3 mova ta timatika');
writeln('4 timatika i riad');
writeln('5 vixod');
readln(user_case);
case user_case of
1: begin clrscr;
Rfajl(f)
end;
2: begin clrscr;
d1(f)
end;
3: begin clrscr;
d2(f)
end;
4: begin clrscr;
d3(f)
end;
5: halt;
end;
writeln;
readln;
until user_case=5;
readln;
end.