Помогите пожалуйста найти ошибку. Программа: есть 10 пронумерованных от 1 до 10 пунктов, некоторые из них соединены дорогами. задается 2 пункта, определит можно ли из одного попасть в другой по этим дорогам, дороги задаются как пара чисел.

program roads;
uses Crt;
type road=array[1..10,1..10] of boolean;
var a,b,i,k,t,j:integer; r:road; visit: array[1..10] of boolean;
function est_put(a:road; p1,p2:integer): boolean;
label 1,2;
var r:integer;
begin
     if (p1=p2)or(a[p1,p2]) then est_put:=true
        else begin est_put:=false; visit[p1]:=true;
                   for r:=1 to 10 do
                   begin if not(a[p1,r]) then goto 1;
                         if(visit[r]) then goto 1;
                         visit[r]:=true;
                         if (est_put(a,r,p2)) then begin est_put:=true; goto 2 end;
                         1:
                   end
        end;
        2:
end;
procedure way(a:road; p1,p2:integer);
var r,k:integer;
begin
     if (p1=p2) then writeln('‚л ­  ¬ҐбвҐ')
     else if (a[p1,p2]) then write(p1,' ',p2)
             else {ищем какую-нибудь дорогу из  p1}
                  begin visit[p1]:=true;
                        for r:=1 to 10 do
                        if not(visit[r]) and(est_put(a,r,p2))and(a[r,p1])
                           then begin visit[r]:=true;
                                   write(p1,' ');k:=r; way(a,k,p2) end
                                   else visit[r]:=true;
                  end
end;
begin
     for i:=1 to 10 do
         for j:=1 to 10 do r[i,j]:=false;
     writeln('В каком пункте Вы находитесь?');
     readln(a);
     writeln(Куда Вы хотите попасть?');
     readln(b);
     writeln('Сколько всего дорог?');
     readln(k);
     if (k>0) then writeln('Какие пункты соединены дорогами?');
     for t:=1 to k do
     begin readln(i,j); r[i,j]:=true; r[j,i]:=true end;
     for t:=1 to 10 do visit[t]:=false;
     if not (est_put(r,a,b)) then writeln('По этим дорогам нельзя попасть из a в b')
     else begin for t:=1 to 10 do visit[t]:=false; way(r,a,b) end
end.

Заранее спасибо!