Вот мой вариант, только тут есть маленький партак.....Он выводит общее кол-во путей...А необходимо наибольший поток данных...

uses wincrt;
var
map:array [1..30,1..30] of integer;{Карта: map[i,j] не 0, если точки i и j соединены}
road:array [1..30] of integer;{маршрут-номера точек карты}
road1:array [1..30] of integer;
incl:array [1..30] of boolean;{incl[i]=true, если точка с номером i включена в road}
len:integer; {Длина последнего найденного маршрута}
c_len:integer; {длина текущего маршрута}
start,finish:integer;{Начальная и конечная точки}
i,j:integer;
n:integer; {Кол-во вершин в графе}
potok:integer; {Пропускная способность}
w,z,max:integer;
procedure init;
begin
writeln('Введите кол-во вершин в графе-> ');
readln(n);
for i:=1 to N do road[i]:=0;
for i:=1 to N do incl[i]:=false;
for i:=1 to n do
for j:=1 to n do map [i,j]:=0;
end;

procedure creat;
begin
w:=0;
while w<>2 do
begin
writeln('1-добавление связи м/у 2-мя вершинами');
writeln('2-выход');
readln(w);
case w of
1:begin
write('Введите ч/з пробел номера вершин-> ');
readln(i,j);
writeln('Введите пропускную способность м/у ними-> ');
readln(potok);
map[i,j]:=potok;
end;
end;
end;
end;

procedure step(s,f,p:integer);
var c:integer; {номер точки в которую делаем очередной шаг}
begin
if s=f then
begin
len:=c_len; {сохраняем длинну найденного маршрута}
write('путь: ');
for i:=1 to p-1 do write(road[i],' ');
writeln (' Пропускная способность: ',len);
end
else
{выбираем очередную точку}
for c:=1 to n do {проверяем все вершины}
if (map[s,c]<>0) and (not incl[c]) {and ((len=0) or (c_len+map[s,c]>len)) }
{точка соединена с текущей и не включена в маршрут}
then
begin
road[p]:=c; {добавим вершину в путь}
incl[c]:=true; {пометим вершину, как включенную}
if c_len=0 then c_len:=map[s,c];
if c_len>map[s,c] then
c_len:=map[s,c];

step(c,f,p+1);
incl[c]:=false;
road[p]:=0;
c_len:=0;
end;
end;

{procedure maximum;
begin
for i:=1 to n do
begin
writeln('Максимальный поток данных проходит ч/з ');
writeln('Путь ',road[i+1]);
writeln('Пропускная способность ',max);
end;
end;}

procedure run_map;
begin
init;
creat;
write ('Введите через пробел номера начальной и конечной точек -> ');
readln (start,finish);
road [1]:=start; {Внесем точку в маршрут}
incl [start]:=true;{пометим ее как включенную}
len:=0;
c_len:=0;
step (start,finish,2); {ищем вторую точку}
{maximum;}
writeln ('Для завершения нажмите <Enter>');
readln;
end;

begin
run_map;
end.

помогите додеоать ее.....