if Stan=JEDZIE_GORA then
        mijanka.OdejmijGore(PustyPn);
        if PustyPn=true then
            Stan := PUSTY_MOST;
       Wlez := false;
        else
        Put_Line("PRZEJECHAL Z GORY");
            mijanka.WypiszPn;
            mijanka.WypiszPld;
            AutaGora:=AutaGora+1;
        end if;

      end if;