vlad / TURBO P / tp7 / BIN / MAK_3

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:fl);
Var Y_N:char;
    el:cinema;
    i,k,nm:integer;
 Begin
      assign(fz,'filel');
      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
                       end;



              end;

          end;











end.