Проблема с вводом и выводом файла

{$r+}
program ru01t2;
const
    MaxN = 10000;
    MaxE = 1000;
    
    var
        G   : array[1..MaxN, 1..MaxE] of integer;
        Power : array[1..MaxN] of integer;
        DeletedNodes : array[1..MaxN] of integer;
        Deleted,    Node,   N,  i,  j,  m,  K : integer;
        
        procedure InputData;
            var
                i,b,e : integer;
            begin
                assign(input,'inp.txt'); reset(input);
                readln(K);
                readln(N);
                for i := 1 to N do Power[i] := 0;
                for e := 2 to N do
                    begin
                        read(b);
                        inc(Power[b]); G[b, Power[b]] := e;
                        inc(Power[e]); G[e, Power[e]] := b;
                    end;
                close(input);
            end;
            
        procedure OutputResults;
            begin
                assign(output,'out.txt'); rewrite(output);
                writeln(Deleted);
                if Deleted <> 0
                    then
                    begin
                        for i := 1 to Deleted - 1 do
                            write(DeletedNodes[i], ' ');
                        writeln(DeletedNodes[Deleted]);
                    end;
                close(output);
            end;
            
        function MaxPower(var Node, M: integer): integer;
            begin
                M := Power[N]; Node := N;
                for i := N-1 downto 1 do
                    if Power[i] > m
                        then 
                        begin 
                            m := Power[i]; 
                            Node := i; 
                        end;
                    MaxPower := M;
                end;
                
        procedure Annigilate(Node:integer);
            begin
                j := 1;
                for i := 1 to Power[Node] do
                    begin
                        while Power[G[Node, j]] = 0 do inc(j);
                        dec(Power[G[Node, j]]);
                inc(j)
                    end;
                Power[Node] := 0;
                DeletedNodes[Deleted] := Node;
            end;
        
        begin
            inputData;
            Deleted := 0;
            while (MaxPower(Node, M) >= K-1) and (M <> 0) do
                begin
                    inc(Deleted);
                    Annigilate(Node);
                end;
            OutputResults;
        end.