Вывести путешественников, попавших в лабиринт, к выходу

For I := 1 to 100 do zah_reb [i] := 0;
last_ver := N_vhod;
m := 0;
Repeat
    out:
    str (last_ver, last);
    enter_ver2 := enter_ver + raz + ') ' + last + ' -> ';
    Repeat
        Sum_ver := 0;
        _go := false;
        Enter_digit(maxX, maxY, n, enter_ver2, N_ver, _exit); {ввод следующей вершины}
        if _exit then begin
            clear_help (maxX,maxY,ost);
            exit;
        end;
        for i := 1 to n do sum_ver := sum_ver + _c[last_ver,i]; {вычисление ходов из данной вершины}
        {проверка на то, что если имеются ходы, то не является ли он заходящим в вершину}   
        if (_c[last_ver,N_ver] = 1) and (sum_ver > 1) then
            if N_ver <> zah_reb[last_ver] then _go:=true else
              begin 
                  clear_help(maxX, maxY, ost);
                  setcolor(lightred);
                  outtextXY(maxx div 2, maxy-25,error2); {печать: «Заходящее ребро. Хода нет.»}
                  readkey;
                  clear_help(maxX, maxY, ost);
                  goto out;
              end
        else         {проверка на то, что нет возможных путей, кроме как заходящего ребра в вершину}
        if (_c[last_ver,N_ver] = 1) and (sum_ver = 1) then _go:=true else
          begin
              clear_help(maxX, maxY, ost);
              setcolor(lightred);
              outtextXY(maxx div 2, maxy-25,error1); {печать: «Ребро пройдено. Хода нет.»}
              readkey;
              clear_help(maxX, maxY, ost);
              goto out;
        end;
        {удаляем с копированой матрицы ребро по направлению, по которому мы прошли}
        if _go then _c[last_ver,N_ver] := 0; 
    until _go;
    {если в данной вершине нет заходящего ребра, то запишем в массив вершину из которой попали в данную, нарисуем окружность на этом ребре}
    if zah_reb[N_ver] = 0 then begin
        zah_reb[N_ver] := last_ver;
        diag:= round ( sqrt(abs(y[last_ver]-y[N_ver]) + abs(x[last_ver]-x[N_ver]) ));
        x0 := round ( x[N_ver] - (rad_zah)*(x[N_ver] - x[last_ver])/diag );
        y0 := round (y[N_ver] + (rad_zah)*(y[last_ver]-y[N_ver])/diag );
        setcolor(red);
        circle(x0, y0, 3);
    end;    
    {рисуем ход в данную вершину по ребру (обозначение: стрелка)}
    diag:= round ( sqrt(abs(y[last_ver]-y[N_ver]) + abs(x[last_ver]-x[N_ver]) ));
    x0 := round ( x[N_ver] - (rad_arr)*(x[N_ver] - x[last_ver])/diag );
    y0 := round (y[N_ver] + (rad_arr)*(y[last_ver]-y[N_ver])/diag );
    x1 := round ( x[N_ver] - (rad_plus)*(x[N_ver] - x[last_ver])/diag );
    y1 := round (y[N_ver] + (rad_plus)*(y[last_ver]-y[N_ver])/diag );
    setlinestyle(0,0,3);
    setcolor(yellow);
    line(x0,y0,x1,y1);
    setlinestyle(0,0,1);
    last_ver := N_ver;
until last_ver = N_vihod;  {выход производиться тогда, когда данная вершина является выходом}