program felsorolas_tipusra;
{P.M. gyak., HBV - 2000.febr.17.}
uses crt;
type Tnap=(hetfo,kedd,szerda,csutortok,pentek,szombat,vasarnap,v);
 { Azert kell me'g valami a vegere, hogy ha "hulyeseget" adunkbe,
    akkor ne alljon le... }
var ma:Tnap;szoveg:string;
 { Tipusos konstans - ezt szereti a vizsgan a gyak.vez.! }
const sznap:array[hetfo..v] of string=('hetfo','kedd','szerda','csutortok','pentek','szombat','vasarnap','v');
 { A fels.tipusnal a sorszamozas 0-tol kezdodik }
 function elozonap(var nap:Tnap):Tnap;
   begin
     if nap=hetfo then elozonap:=vasarnap
                  else elozonap:=pred(nap);
  end;

function kovnap(var nap:tnap):tnap;
begin
if nap=vasarnap then kovnap:=hetfo
else kovnap:=succ(nap);
end;

function hanyadiknap(var nap:tnap):integer;
begin
hanyadiknap:=ord(nap)+1;
end;

function kiiras(nap:tnap):string;
begin
kiiras:=sznap[nap];
end;

function beolvas(szoveg:string):tnap;
 var nap:Tnap;
  begin
    nap:=low(Tnap);
    while (nap<high(Tnap)) and (szoveg<>Sznap[nap]) do
    { Be: szoveg; ha az elso az=rendben, kulonben veszi a kovetkezot,
    amig<=, mint vasarnap }
      inc(nap);
    beolvas:=nap;
end;

begin
  clrscr;
  repeat
    Write('Melyik nap van ma? ');
    readln(szoveg);
    ma:=beolvas(szoveg);
  until ma<>v;
  writeln('Az elozo nap: ',kiiras(elozonap(ma)));
  writeln('A kovetkezo nap: ',kiiras(kovnap(ma)));
  writeln('Ez a nap a het ',hanyadiknap(ma),' napja');

readln;
end.