Ошибка выполнения

const
  H = 100;
var
  a: array [1..H] of array of int64;
  ans, o: array [1..H] of int64;
  i, u, v, n, m, j, kans, s, f: int64;
  flag: boolean;
  t: text;
  
procedure push(b, n: int64);
begin
  if length(a[b]) <= a[b][0] + 1 then
    setlength(a[b], length(a[b]) * 2);
  a[b][a[b][0] + 1] := n;
  inc(a[b][0]);
end;
 
procedure find(i: int64);
var
  j: int64;
begin
  if o[i] = 1 then    
    exit;
  if i = f then
  begin
    flag := true;
    inc(kans);
    ans[kans] := i;
    exit;
  end;
  o[i] := 1;
  for j := 1 to a[i][0] do
  begin
    if flag then
    begin
      inc(kans);
      ans[kans] := i;
      exit;
    end;
    find(a[i][j]);
  end;
  if flag then
  begin
    inc(kans);
    ans[kans] := i;
  end;
end;
 
begin
  assign(t, 'path.in ');
  reset(t);
  kans := 0;
  flag := false;
  for i := 1 to H do
  begin
    setlength(a[i], 2);
    a[i][0] := 0;
    o[i] := 0;
  end;
  readln(t, n);
  for i := 1 to n do
    for j := 1 to n do
    begin
      read(t, v);
      if v = 1 then
        push(i, j);
    end;
  readln(t, s, f);
  close(t);
  assign(t, 'path.out');
  rewrite(t);
  find(s);
  if kans = 0 then
    writeln(t, -1)
  else
  begin
    writeln(t, kans - 1);
    for i := kans downto 1 do
      write(t, ans[i], ' ');
  end;
  close(t);
end.