PROCEDURE (t: Traffic) SortWachtrij();

        VAR
            teller1, teller2, teller3: INTEGER;
            tempnode: CircDLL.Node;
            tempplane: CircDLL.Node;
            tempname: StringTypes.SimpleTypeString;
            airport: Airport.Airport;
            airplane: Airplane.Airplane;

    BEGIN
        teller1 := 0;
        NEW(tempnode);
        tempnode^.Init;
        tempnode := t^.Ports^.GetFirstNode();
        NEW(tempplane);
        tempplane^.Init;
        tempplane := t^.Planes^.GetFirstNode();

        IF tempnode IS Airport.Airport THEN
            airport := tempnode(Airport.Airport);
        END;
        IF tempplane IS Airplane.Airplane THEN
            airplane := tempplane(Airplane.Airplane);
        END;

        IF (airplane = t^.Planes^.GetLastNode()) & (airplane = t^.Planes^.GetFirstNode()) THEN
                IF airport^.name = airplane^.depart THEN
                    airport^.wachtlijst[teller1] := airplane^.GetNumber();
                END;
        ELSE
            FOR teller3 := 0 TO (t^.Planes^.GetLength() -1) BY 1 DO
                IF airport^.name = airplane^.depart THEN
                    airport^.wachtlijst[teller2] := airplane^.GetNumber();
                    INC(teller2);
                    tempnode := airport^.NextNode();
                    airport := tempnode(Airport.Airport);
                ELSE
                    tempnode := airport^.NextNode();
                    airport := tempnode(Airport.Airport);
                END;
            END;
        END;
            tempnode := airport^.NextNode();
            airport := tempnode(Airport.Airport);
            WHILE airport # t^.Ports^.GetFirstNode() DO
                tempplane := airplane^.NextNode();
                airplane := tempplane(Airplane.Airplane);
                IF (airplane = t^.Planes^.GetLastNode()) & (airplane = t^.Planes^.GetFirstNode()) THEN
                IF airport^.name = airplane^.depart THEN
                    airport^.wachtlijst[teller1] := airplane^.GetNumber();
                END;
        ELSE
            teller2 := 0;
            FOR teller3 := 0 TO (t^.Planes^.GetLength() -1) BY 1 DO
                IF airport^.name = airplane^.depart THEN
                    airport^.wachtlijst[teller2] := airplane^.GetNumber();
                    INC(teller2);
                    tempplane := airplane^.NextNode();
                    airplane := tempplane(Airplane.Airplane);
                ELSE
                    tempplane := airplane^.NextNode();
                    airplane := tempplane(Airplane.Airplane);
                END;
            END;
        END;
        tempnode := airport^.NextNode();
        airport := tempnode(Airport.Airport);
            END;
        END SortWachtrij;