Превышено максимальное время работы

const C=100;
var
  s: array[1..C, 1..C] of byte;n,i, j, c1, c2, v,x,l,y: uint64;visited: array [1..C] of boolean;q: array [1..10000] of uint64;res:array[1..10000] of uint64;cnt:array[1..C] of uint64;
 
begin
read(n);
  for i := 1 to n do 
  begin
    for j := 1 to n do 
      read(s[i, j]);
    readln;
  end;
  read(x);
  read(y);
  v:=x;
  c1 := 1;
  c2 := 1;
  q[c2] := v;
  visited[v] := true;
  while c1 <= c2 do
  begin
    for i := 1 to n do 
      if (s[v, i] <> 0) and (not visited[i]) then
      begin
        c2 := c2 + 1;
        q[c2] := i;
        visited[i] := true;
        cnt[i]:=cnt[v]+1;
      end;
    c1 := c1 + 1;
    if c1<= c2 then v := q[c1];
  end;
  writeln(cnt[y]);
  l:=y;
  res[1]:=l;
  j:=2;
  while l<>x do 
  for i:=1 to n do
  if (s[l,i]=1) and (cnt[i]=cnt[l]-1) then begin
  res[j]:=i;
  j:=j+1;
  l:=i;
  end;
  if cnt[y]<>0 then 
  for i:=j-1 downto 1 do
  write(res[i],' ');
  
end.