Графы-Поиск в ширину

const
   l = 1000;
 
var i,j,n, consp,cur,st,fin : integer;       way,q: array[1..l] of integer;
                                                      was: array[1..l] of integer;
                                                      m: array[1..100] of array[1..100] of integer;
                                                      pred: array[1..l] of integer;
    b,e: integer;
 
 
 
 
procedure add(var i:integer);
begin
 if i < l then i:=i+1  else   i:=1;
end;
 
 
 
 
begin
For i:=1 to l do
  begin
  was[i]:=0;
  q[i]:=0;
  end;
 
readln(n);
 
 For i:=1 to n do
    For j:=1 to n do
       read(m[i,j]);
 
read(st,fin);
 
b:=1;
e:=b+1;
q[b]:=st;
 
while (cur<>fin) do
begin
 cur:=q[b];
 add(b);
 was[cur]:=1;
 
 if (b<>e) and (cur <> fin) then
 begin
 
   For i:=1 to n do
     if ((m[i,cur]=1)  and (was[i]=0))  then
     begin
      add(e);
      q[e]:=i;
      pred[i]:=cur;
     end;
 end;
end;
 
i:=1;
way[1]:=fin;
while (cur <> st) do
begin
 way[i]:=cur;
 inc(i);
 cur:=pred[cur];
end;
 
For i:=1 to i do
  write(way[i]);
 
 
 
readln;
readln;
end.

procedure push(var i:integer; v : integer);
begin
 if i < l then i:=i+1; // else i:=1; Это переполнение очереди, надо бы ошибку обработать
 q[i] := v;
end;
function pop(var i:integer) : integer;
begin
  pop := q[i]; dec(i);
end;

   // тут ввод данных
   read(st,fin); // Это у тебя было
 
   b := 0;
   push(b, st);
   was[st] := 1;
 
   while b > 0 do
   begin
     e := pop(b);
     if e = fin then break;
     for i := 1 to n do
       if (m[e, i] = 1) and (was[i] = 0) then
       begin
         push(b, i);
         was[i] := 1;
         pred[i] := e;
       end;
   end;
 
   i:=1;
   cur := fin;
   while (cur <> st) do
   begin
      way[i]:=cur;
      inc(i);
      cur:=pred[cur];
   end;
   way[i]:=st;
 
   For j:= i downto 1 do
      write(way[j]:3);