Задача на взвешенный ориентированный граф, существует ли путь L между двумя заданными вершинами

var point1, point2, L, vertAmount:integer;
  t:text;
 
begin
  assign(t, 'task.txt');
  t.Reset;
  L:=t.ReadInteger;
  vertAmount:=t.ReadInteger;
  point1:=t.ReadInteger;
  point2:=t.ReadlnInteger;
  
  for var i:integer:=2 to point1 do t.Readln;
  for var i:integer:=2 to point2 do t.ReadInteger;
  if t.ReadInteger = L then println('Существует') else println('Не сущестует');
end.

5 3 2 1
2 3 1
5 4 3
2 3 0

var
  point1, point2, L, vertAmount: Integer;
  t: text;
  paths: array of array of Integer;
 
procedure findPath(point, length: Integer; path: LinkedList<Integer>);
begin
  path.AddLast(point);
  if (length = L) and (point = point2) then println(path);
  if length < L then
    for var j := 0 to vertAmount - 1 do 
      if (paths[point, j] > 0) then findPath(j, length + paths[point, j], new LinkedList<Integer>(path));
end;
 
begin
  assign(t, 'task.txt');
  t.Reset;
  L := t.ReadInteger;
  vertAmount := t.ReadInteger;
  point1 := t.ReadInteger;
  point2 := t.ReadlnInteger;
  
  setLength(paths, vertAmount);
  for var i := 0 to (vertAmount - 1) do
  begin
    setLength(paths[i], vertAmount);
    for var j := 0 to (vertAmount - 1) do paths[i, j] := t.ReadInteger;
    t.Readln;
  end;
  t.Close;
  findPath(point1, 0, new LinkedList<Integer>)
end.

5 4 0 2
0 3 4 1
0 0 2 0
0 0 1 0
0 2 1 0