display = {Property["s" [DirectedEdge] 4, EdgeWeight -> "0,30"],
   Property["s" [DirectedEdge] 1, EdgeWeight -> "10"],
   Property[
    1 [DirectedEdge] "s", {EdgeWeight -> "30", EdgeStyle -> Red}],
   Property[
    2 [DirectedEdge] 1, {EdgeWeight -> "30", EdgeStyle -> Red}],
   Property[
    3 [DirectedEdge] 2, {EdgeWeight -> "10", EdgeStyle -> Red}],
   Property[4 [DirectedEdge] 5, EdgeWeight -> "0,54"],
   Property[5 [DirectedEdge] 3, EdgeWeight -> "0,50"],
   Property[6 [DirectedEdge] 4, EdgeWeight -> "0,17"],
   Property[2 [DirectedEdge] 6, EdgeWeight -> "17"],
   Property[
    6 [DirectedEdge] 2, {EdgeWeight -> "20", EdgeStyle -> Red}],
   Property[6 [DirectedEdge] "t", EdgeWeight -> "12"],
   Property[
    "t" [DirectedEdge] 6, {EdgeWeight -> "20", EdgeStyle -> Red}],
   Property[3 [DirectedEdge] "t", EdgeWeight -> "12"],
   Property[
    "t" [DirectedEdge] 3, {EdgeWeight -> "10", EdgeStyle -> Red}]};

paths = FindPath[display, "s", "t", [Infinity], All]
(*{{"s", 4, 5, 3, "t"}, {"s", 4, 5, 3, 2, 6, "t"}}*)