Program BinarisFaProbaKeret;
  Uses Crt;

{
  Bin ris fa rekurz¡v exportmodulj nak param‚tere: TElem t¡pus
  Importfogalmak:
    Type TElem
    Procedure ReadTElem, WriteTElem
}

{$i TElem.RIM -- TElem t¡pus modulja}

{$i BinFa.EXP -- TBinFa t¡pus ExportModulja}

{$i BinFa.RIM -- TBinFa t¡pus Reprezent ci¢s-Implement ci¢s Modulja}

{
  Modulpr¢ba:
}
  Var bf:TBinFa;

  Procedure Beilleszt(Var bf:TBinFa; Const e:TElem);
    Var bf2:TBinFa;
  Begin
   {...}
  End;

  Procedure Felepit(Var bf:TBinFa);
    Var siker:Boolean;
        e:TElem;
        se:String;
  Begin
    Repeat
      ReadTElem('K‚rek egy elemet (v‚ge, ha hib s)',e,siker);
      If siker then Beilleszt(bf,e);
    Until not siker;
  End;

  Procedure Kilistaz(Const bf:TBinFa); {Bal-k”z‚p-jobb bej r ssal}
  Begin
    {...}
  End;

Begin
  ClrScr;
  bf:=UresBf;
  Felepit(bf);
  Kilistaz(bf);
  ReadKey
End.