взяти біб афс

афс.записати("привітики", "./тест.текст", дія(п)
  якщо п
    впасти п
  кінець

  афс.прочитати(Текст, "./тест.текст", дія(р, п)
    якщо п
      впасти п
    кінець

    якщо р != "привітики"
      впасти п
    кінець

    афс.видалити("./тест.текст", дія(видалено, п)
      якщо п
        впасти п
      кінець
    кінець)
  кінець)
кінець)