PROGRAM telefonkönyv_c
  VÁLTOZÓK:
    sor, név, tszám, keres: SZÖVEG,
    nemtalál: LOGIKAI,
    input: BEFÁJL
 
  nemtalál := IGAZ
  BE: keres
  MEGNYIT input: "telefonkönyv.txt"
  CIKLUS AMÍG NEM VÉGE input ÉS nemtalál
    BE input: sor
    név := sor[0:sor @ ',']
    tszám := sor[sor @ ',' + 2:|sor|]
    HA SZÁM (keres[0]) ÉS tszám = keres AKKOR
      KI: név
      nemtalál := HAMIS
    HA_VÉGE
    HA BETŰ (keres[0]) ÉS keres = név AKKOR
      KI: tszám
      nemtalál := HAMIS
    HA_VÉGE
  CIKLUS_VÉGE
  LEZÁR input
PROGRAM_VÉGE