Eljßrßs RÚszvÚny_id´szer‡sÝtÚs;
   olvas(modfile,b);
   Ciklus amÝg nem FilevÚge(munkafile)
       Olvas(munkafile,a);
        ha b.sorszam=a.sorszam akkor a:=b;
        ha nem FilevÚge(modfile) akkor olvas(modfile,b)
                         kØl÷nben b.sorszam:=1;
     KiÝr(kimenet,a.sorszam,elvalaszto,a.nev);
   Ciklus vÚge;
   Ciklus amÝg nem FilevÚge(modfile) do
       olvas(modfile,a);
       KiÝr(kimenet,a.sorszam,elvalaszto,a.nev);
   Ciklus vÚge;
Eljßrßs vÚge; {-Reszveny_idoszerusito vege-}

Eljßrßs Munka_id´szer‡sÝtÚs (n : TNapSzam);
   olvas(modfile,b);
   ciklus amÝg nem FilevÚge(munkafile)
       Olvas(munkafile,a);
        ha b.sorszam=a.sorszam akkor a:=b; 
              ha nem FilevÚge(modfile) akkor olvas(modfile,b) kØl÷nben b.sorszam:=1;
    Elßg vÚge;
     KiÝr(kimenet,a.sorszam,elvalaszto,a.kezdo,elvalaszto,a.zaro,elvalaszto,
a.min,elvalaszto,a.max,elvalaszto,a.atlag);
   Ciklus vÚge
   Ciklus amÝg nem FilevÚge(modfile)
        olvas(modfile,a);
         KiÝr(kimenet,a.sorszam,elvalaszto,a.kezdo,elvalaszto,
                a.zaro,elvalaszto,a.min,elvalaszto,a.max,elvalaszto,a.atlag);
    Ciklus vÚge;
Eljßrßs vÚge; {-Munka_idoszerusito vege-}

Algoritmus vÚge