программа выдает ошибку при запуске error executing program

/*
Плата за выход - 2
Один новый русский заменил в своем особняке все двери. 
Теперь все двери в его доме открывались только после опускания в соответствующие
автоматы нескольких фишек из казино. Однажды он проснулся утром и увидел, что его
специальный кошелек с фишками остался на улице в машине, а у него в кармане лишь несколько штук. 
Вам необходимо определить сможет ли он выйти на улицу самостоятельно и помочь ему это сделать.
ВХОДНОЙ ФАЙЛ :
Входной файл содержит описание топологии его особняка. В первой строке стоят четыре целых числа. 
Первые два числа - это число комнат N (0<N<100) и число дверей M (0<M<1000) соответственно. 
(Комнаты пронумерованы от 1 до N, а двери от 1 до M.) Третье - номер комнаты К, 
где проснулся новый русский. Четвертое число - количество имеющихся фишек.
Далее следуют N строчек - описание комнат. Каждая из них содержит число дверей в
соответствующей комнате и далее их порядковые номера. Все числа разделены пробелами.
Каждая дверь входит в список одной или двух комнат. Если дверь содержится в списке только
одной комнаты - это выход из здания. Выходов может быть несколько. Из любой комнаты в любую 
(в том числе и на улицу) ведет не более одной двери. При наличии достаточного количества фишек,
выйти из любой комнаты на улицу можно. Через любую дверь можно проходить в любую сторону.
Далее следуют несколько строчек с М числами - это стоимость прохода через соответствующую дверь 
(каждое от 0 до 1000).
Пример входного файла
3 4 3 10
3 1 2 4
2 2 3
1 4
7 3
3 2
Пример выходного файла
Y
8
4 2 3
    ФАЙЛ ВЫХОДНЫХ ДАННЫХ :
Выходной файл должен содержать в первой строке символ "Y" или "N", говорящий о 
возможности дойти до выхода или об ее отсутствии.
В первом случае необходимо во второй строке выдать минимальное количество фишек,
которое понадобится для выхода, Кроме того, в третьей строке выведите через пробел
последовательность дверей,  которые придется преодолеть новому русскому.
*/
#include <fstream>
#include <iostream>
using namespace std;
 
int m,n,***c,k,money,**doors;
 
int main()
{
    ifstream fi("in.txt");
    ofstream fo("out.txt");
    fi >> n >> m >> k >> money;
    doors = new int*[m+1];
    for (int i=1; i<=m; i++)
    {
        doors[i]=new int[3];
        doors[i][0]=doors[i][1]=doors[i][2]=0;
    }
    for (int i=1; i<=n; i++)
    {
        int t,d;
        fi >> t;
        for (int j=0; j<t; j++)
        {
            fi >> d;
            if (doors[d][1])
                doors[d][2]=i;
            else
                doors[d][1]=i;
        }
    }
    for (int i=1; i<=m; i++)
        fi >> doors[i][0];
    fi.close();
    c = new int**[n+1];
    for (int i=0; i<=n; i++)
    {
        c[i]=new int*[n+1];
        for (int j=0; j<=n; j++)
        {
            c[i][j]=new int[2];
            c[i][j][0]=c[i][j][1]=10000;
        }
    }
    for (int i=1; i<=m; i++)
    {
        c[doors[i][1]][doors[i][2]][0]=c[doors[i][2]][doors[i][1]][0]=doors[i][0];
        c[doors[i][1]][doors[i][2]][1]=c[doors[i][2]][doors[i][1]][1]=i;
    }   
    int *D,*pr,*F;
    D = new int[n+1]; pr = new int[n+1]; F = new int[n+1];
    D[k]=0; pr[k]=-1;
    for (int i=0; i<=n; i++)
        F[i]=1;
    F[k]=0;
    for (int i=0; i<=n; i++)
        if (F[i])
        {
            D[i]=c[k][i][0];
            pr[i]=k;
        }
    for (int j=0; j<n; j++)
    {
        int w=0,m=100000;
        for (int i=0; i<=n; i++)
            if (F[i] && (D[i]<m))
            {
                w=i;
                m=D[i];
            }
        F[w]=0;
        for (int i=0; i<=n; i++)
            if (F[i] && (D[w]+c[w][i][0]<D[i]))
            {
                D[i]=D[w]+c[w][i][0];
                pr[i]=w;
            }
    }
    if (D[0]>money)
    {
        fo << "N\n";
        fo.close();
        return 0;
    }
    fo << "Y\n" << D[0] << '\n';
    int i =0;
    int *path,len=0;
    path=new int[n+1];
    while (i!=-1)
    {
        path[len]=i;
        len++;
        i=pr[i];
    }
    while (len>1)
    {
        len--;
        fo << c[path[len]][path[len-1]][1] << ' ';
    }
    fo << endl;
    fo.close();
    return 0;
}