unit szpdf;

interface

Uses bux,Dos;
Procedure Reszveny_idoszerusites;
Procedure Munka_idoszerusites(n : TNapSzam);

implementation

Procedure Reszveny_idoszerusites;
var  munkafile, kimenet : text;
 modfile : file of TReszveny; {a reszvenynevek file-ja}
 a,b : TReszveny; {reszvenytipus}
 s:string; {filenev}
const elvalaszto='/';

  procedure fileinic;
  begin
    assign(munkafile,'reszveny.txt');
    assign(modfile,'reszveny.mod');
    reset(modfile); reset(munkafile);
    assign(kimenet,'TEMPFILE');
    rewrite(kimenet);
  end; {-fileinic vege-}

 procedure filezaras;
  begin
   close(munkafile);erase(munkafile);
   close(modfile); erase(modfile);
   close(kimenet); rename(kimenet,'reszveny.txt');
  end; {-filezaras vege-}

 procedure olvas(var mtxt:text; var mit:TReszveny);
 begin
        read(mtxt,mit.sorszam);
        readln(mtxt,mit.nev);
 end; {-olvas vege-}

 begin {-foprogram-}
   fileinic;
   read(modfile,b);
   While not EOF(munkafile) do
   Begin
     Olvas(munkafile,a);
     If b.sorszam=a.sorszam then
     Begin
       a:=b;
       If not EOF(modfile) then read(modfile,b)
                         else b.sorszam:=1;
     End;
     writeln(kimenet,a.sorszam,elvalaszto,a.nev);
   End;
   While not EOF(modfile) do
     Begin
       read(modfile,a);
       writeln(kimenet,a.sorszam,elvalaszto,a.nev);
     End;
End; {-Reszveny_idoszerusito vege-}

Procedure Munka_idoszerusites(n : TNapSzam);
var  munkafile, kimenet : text;
 modfile : file of TForgalmiAdat; {egy nap, kivel mi tortent}
 a,b : TForgalmiAdat; {amik egy nap alatt tortenhetnek...}
 s:string; {filenev}
const elvalaszto='/';

 procedure fileinic;
  begin
    str(n,s); {a hanyadik nap problemaja}
    assign(munkafile,'munka.'+s);
    s:='mod.'+s;
    assign(modfile,s);
    reset(modfile); reset(munkafile);
    assign(kimenet,'TEMPFILE');
    rewrite(kimenet);
  end; {-fileinic vege-}

 procedure filezaras;
  begin
   close(munkafile);erase(munkafile);
   close(modfile); erase(modfile);
   close(kimenet); str(n,s); rename(kimenet,'munka.'+s);
  end; {-filezaras vege-}

 procedure olvas(var mtxt:text; var mit:TForgalmiAdat);
 begin
        read(mtxt,mit.sorszam);
        read(mtxt,mit.kezdo);
        read(mtxt,mit.zaro);
        read(mtxt,mit.min);
        read(mtxt,mit.max);
        readln(mtxt,mit.atlag);
 end; {-olvas vege-}

 begin {-foprogram-}
   fileinic;
   read(modfile,b);
   While not EOF(munkafile) do
   Begin
     Olvas(munkafile,a);
     If b.sorszam=a.sorszam then
     Begin
       a:=b;
       If not EOF(modfile) then read(modfile,b)
                         else b.sorszam:=1;
     End;
       writeln(kimenet,a.sorszam,elvalaszto,a.kezdo,elvalaszto,a.zaro,elvalaszto,a.min,elvalaszto,a.max,elvalaszto,a.atlag);
   End;
   While not EOF(modfile) do
     Begin
       read(modfile,a);
       writeln(kimenet,a.sorszam,elvalaszto,a.kezdo,elvalaszto,a.zaro,elvalaszto,a.min,elvalaszto,a.max,elvalaszto,a.atlag);
     End;
  end; {-Munka_idoszerusito vege-}

BEGIN
END.