Program masodik;  {2000. II. 17. - 3. prog. mod./1}
uses crt;
type tnap=(hetfo,kedd,szerda,csutortok,pentek,szombat,vasarnap,v); {kell egy plussz elem!}
var ma:Tnap;
    szoveg:string;

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
  Clrscr;
  Repeat
    Write('Milyen nap van ma? ');
    Readln(szoveg);
    Ma:=beolvas(szoveg);
  Until ma<>v;
  Writeln('Az elozonap: ',kiiras(elozonap(ma)));
  Writeln('A kovetkezo nap: ',kiiras(kovnap(ma)));
  Writeln('Ez a nap a het ',hanyadiknap(ma),' napja');
  Readkey;
END.