Изменения

<tex>do</tex>

{

<tex>p := p+[v]</tex>;

<tex>v := w;</tex>

}

<tex>while(w \ne t);</tex>

<tex>\delta := min(c(vw) - f(vw), (vw)\in p);</tex>

<tex>foreach (vw)\in p </tex>

<tex>f(vw)+= \delta;</tex> //увеличиваем поток вдоль пути <tex>p</tex>