Если [встретил бабульку у дороги] тогда
   Перебор вариантов [действие игрока] из:
     [Перевёл через дорогу]: деньги +20р;
     [Не перевёл бабульку через дорогу]: репутация -20;
     [Пнул бабульку] деньги -2000р и репутация -100;
   Конец перебора;

                  [Квест 1]                          //Первый узел
              <+>           <->                     //Первое решение
       [Квест 2]            [Квест 3]             //Два узла второго уровня
    <+>      <->         <+>      <->         //Решения второго уровня
[Квест 4] [Квест 5] [Квест 6] [Смерть игрока]
    ...      ...      ...

Program TF1;
var filin:text; error:byte;
begin
   assign(filin, 'output.txt');
   {$i-} {отключает слежение системы за ошибками ввода-вывода}
   rewrite(filin);
   error:=ioresult; //ioresult возвращает код последней ошибки и сбрасывается
   if error<>0 then
   begin
     writeln('Ошибка открытия файла! Код ошибки: ',error);
     halt(error);
   end;
   write(filin,'Ahahah');
   close(filin);
end.

procedure readword(var f:text; var str:string);
var ch:char;
begin
   str:='';
   read(f,ch);
   while (ch<>#32) and not eof(f) do
   begin
     str:=str+ch;
     read(f,ch);
   end;
end;