Unit felsorol;  {2000. II. 17. - 3. prog. mod./2}
Interface
  type tnap=(hetfo,kedd,szerda,csutortok,pentek,szombat,vasarnap,v); {kell egy plussz elem!}
  Function elozonap(nap:Tnap):Tnap;
  Function kovnap(nap:Tnap):Tnap;
  Function hanyadiknap(nap:Tnap):integer;
  Function kiiras(nap:Tnap):string;
  Function beolvas(szoveg:string):Tnap;

Implementation
  Const Sznap:array[hetfo..v] of string=('Hetfo','Kedd','Szerda','Csutortok','Pentek','Szombat','Vasarnap','v');

  Function elozonap(nap:Tnap):Tnap;
   Begin
    If nap=hetfo then elozonap:=vasarnap
                 else elozonap:=PRED(nap);
   End;

  Function kovnap(nap:Tnap):Tnap;
    Begin
     If nap=vasarnap then kovnap:=hetfo
                  else kovnap:=SUCC(nap);
    End;

  Function hanyadiknap(nap:Tnap):integer;
    Begin
      hanyadiknap:=ORD(nap)+1;
    End;

  Function kiiras(nap:Tnap):string;
    Begin
      kiiras:=sznap[nap];
    End;

 Function beolvas(szoveg:string):Tnap;   {Nem ellenoriz!!!}
    Var nap:Tnap;
     Begin
       nap:=LOW(Tnap);
       While (nap<HIGH(Tnap)) and (szoveg<>Sznap[nap]) do
         INC(nap);
       beolvas:=nap;
     End;

BEGIN
  {Inic - ha akarunk vmit}
END.