Рекурсия, не могу найти ошибку, N нас. пунктов, пары пунктов соединены, узнать, можно ли попасть из Опции

[Cool_abc]

Текст задачи:
Имеется N населенных пунктов, пронумерованных от 1 до N (N = 10).
Некоторые пары пунктов соединены дорогами. Определить, можно ли по
дорогам попасть из пункта 1 в N-й пункт. Информация о дорогах задается в
виде последовательности пар чисел i и j (i < j), указывающих что i-й и j-й
пункты соединены дорогой. Признак конца этой последовательности – пара
нулей.
Из условия я вынес 1 из основных положений, что по кругу между пунктами мы ходить не будем, т.е. например
1-2-3-5-6-1 (- догора), задача после этого сущаственно упростилась:) написал, но не работает прога, помогите плиз найти ошибку.. или мот я в корне был не прав.. наставьте на путь правильный

Мой код:

Program lab;
  Type int=integer;
       mas=array [1..30, 1..2]of int;
  { 30 - условное число, просто чтобы ограничить массив}
  Var fl: boolean;
      x: mas;
      k:int;

  Procedure vvod(a:mas);
    Var x,y,i:int;
  begin
    Writeln('vvedite parbl 4isel');
    x:=1;y:=1;i:=0;
    While (x<>0) and (y<>0) do
    begin
      if i<>0 then begin
        a[i,1]:=x;
        a[i,2]:=y;
      end;
      Write('vvedite 1 4islo  ');readln(x);
      Write('vvedite 2 4islo  ');readln(y);
      i:=1+i
    end
  end;
  
  procedure find(A:int;var f:boolean);
    Var i:int;
  begin
    if x[A,2]=10  then  f:=true
      else begin
        i:=1;
        while (x[i,1]<>0) and (x[i,2]<>0) and (not f) do
        begin
          if x[A,2]=x[i,1] then
            find(i,f);
          i:=i+1
        end
      end
  end;

Begin
  vvod(x);
  fl:=false;
  k:=1;
  while (x[k,1]<>0) and (x[k,2]<>0) and (not fl) do
  begin
    if x[k,1]=1
      then find(k,fl);
    k:=k+1
  end;
  
  if fl
    then writeln('yes')
    else writeln('nno')
End.

первый проход вынес в основную программу, т.к. нужно было сделать 1 проход по всем x(i,1)=1, т.е. тем. у которых первый пункт - наш начальный и в процедуре в стоке "if x[A,2]=x[i,1] then .." не смог бы подставить вместо x[i,1] единицу

[TarasBer]

> Количество инструкций еще не прямо пропорционально времени их выполнения.

Поэтому я и дописал поправку.

> Уже забыл, что я тебе показывал (когда твоя супер-вылизанная программа проиграла по скорости у меня на машине по скорости моей программе, написанной в лоб, безо всяких ухищрений в два раза).

Про округление? Не надо называть "вылизанным кодом" нахождение целой части вещественного числа в лоб, через его внутренее представление. Тем более, что такие вещи действительно надо компилировать подстановками, а не подпрограммами.

> Точно так же ты можешь оказаться не готов читать чужой код, содержащий совершенно легитимные синтаксические конструкции.

Я вообще не люблю читать чужой код (как и все мы). И, к счастью, у меня нет такой необходимости.

> которые изо всех конструкций языка знают только for/while/if

А может, так и надо? Дедушка Вирт любил выкидывать избыточные конструкции.