//-------------------------------------------------------------Ime na programata
program IzpitTest1;

//-----------------------------------------tip zapis s parametrite (TipSlujitel)
type TipSlujitel = record
Ime : string  [25];
EGN : string  [10];
SlujNomer : string  [10];
BrChasoveZaVsekiDenOtMeseca : integer ;
end;

//----------------------------------------------definirane na file ot zapis (FL)
  //------------------defdefinirane na podhodqsh tip za edin slujitel (Slujitel)
  //----------------------------------------------------definirane na MenuButton
var FL file of TipSlujitel; //File of TipSlujitel
  Slujitel : TipSlujitel;  //Slujitel : TipSlujitel
  MenuButton : integer;

  //---------------------------------------PROCEDURE CREATE FILE (SzdFile)
  procedure SzdFile;
  rewrite(FL);Close (FL);
  writeln;writeln ('Failut e suzdaden.')

  //-----------------------------------------Procedure dobavi danni za slujiteli
  procedure Dobaviane;
  With Sjujitel do
  Writeln('Vuvedete Ime : '); Readln (Ime);
  Writeln('Vuvedete EGN : '); Readln(EGN);
  Writeln('Vuvedete Slujeben Nomer : '); Readln(SlujNomer);
  Writeln('Vuvedete Broi prisustveni chasove za vseki den ot meseca : '); Readln(BrChasoveZaVsekiDenOtMeseca);



//---------------------------------GLAVNA PROGRAMA
         //-------------------------------------------------------Procedure MENU

  procedure Menu;
  repeat

  BEGIN
  writeln('Menu za izbirane na operacii');
    writeln('Natisnete 1 za suzdavane na file.');
    writeln('Natisnete 2 za dobavqne na danni za slujiteli.');
    writeln('Natisnete 3 za namirane na obshtiq broi chasove za vski edin slujitel
                                                                     i zapis obratno vuv faila.');
    writeln('Natisnete 4 za izvejdane v tekstov file
                       na slujitelite (Ime , EGN , SlujNomer)
                          i tehniq broi s obshti prisustveni chasove za meseca < 160.');
    wrireln('Natisnete 0 za da krai.');
    readln(MenuButton);
    case (MenuButton) of
    1:SzdFile
    2:Dobaviane
    3:ObshtBroiChasove
    4:Izvedi

    until MenuButton=0
    End.