Метод Форда-Беллмана

program ford;
var
smej : array[1..20,1..20] of integer;{матрица смежности}
b : array[1..20] of integer;
i,j,n,m : integer;
f:text;
 
          begin
 assign(f,'in.txt');{открытие файла}
 reset(f);
 writeln('vvedite razmernost matricy');
 readln(n);
 for i := 1 to n do
 for j := 1 to n do
 begin
 read(f, smej[i,j]);{считывание матрицы смежности}
 read(f);
 end;
 writeln('Matrix:');{вывод матрицы смежности на экран}
 for i:=1 to n do
 for j:=1 to n do
 if j=n then writeln(smej[i,j]) else  write(smej[i,j],'      ');
  writeln(' pryamie puti is x1');
  {определение прямого пути из х1 до остальных вершин}
 for m := 1 to n do
 begin
 b[m] := smej[1,m];
 writeln('x',m,'=',b[m]);
 end;
 {ищем минимальные пути}
 for i := 1 to n  do
 for m := 1 to n do
 begin
 if (b[m]>b[i]+smej[i,m])
 then
 b[m]:= b[i]+smej[i,m];
 end;
 {выводим минимальные значения пути до вершин}
 writeln('minimaln dliny puti');
 for m := 1 to n do
 writeln('x',m,'=', b[m]);
readln;
end