{UNIT}

Unit felsorol;

Interface
  Type Tnap=();
  Function elozonap(nap:Tnap):Tnap;  {Fv. belsejet nem kell itt megadni
    - itt csak deklaralni kell, definialni csak kesobb!}

Implementation
 Const Sznap:array[ ] of string=('Hetfo','Kedd','Szerda','Csutortok','Pentek','Szombat','Vasarnap','v');
 Function elozonap(nap:Tnap):Tnap;
  Begin
    If nap= {...}
  End;
{...}
{...}

{Ekkor a foprogram: }
Program fo;
 uses crt, felsorol;
 Var ma:Tnap;
     szoveg:String;

{BEGIN -  END. koze beirni a foprogramot!}