Рекурсия, не могу найти ошибку, 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] единицу

[volvo]

А если a - простое выражение, то запись b := b or a всё так же генерирует ветвления, причём делает это ещё хуже, чем при явной форме if a then b := true;
Вот на примере D7:

Я тебе открою тайну: если перед этим самым циклом поставить {$b-}, то ассемблерный листинг будет длиннее, чем если поставить {$b+}. Однако выполняться первый случай будет в несколько раз быстрее, чем второй. И что? Количество инструкций еще не прямо пропорционально времени их выполнения.

Еще одна тайна: Дельфи 2006 может показать другой листинг. 2009 - третий, а 2010? Сколько компиляторов - столько и мнений... Хочешь - еще открою тебе неизведанное? На твоем процессоре код Х будет выполняться за время Т, на другом - за время Т/3. Не веришь? Уже забыл, что я тебе показывал (когда твоя супер-вылизанная программа проиграла по скорости у меня на машине по скорости моей программе, написанной в лоб, безо всяких ухищрений в два раза). Опять начинаешь старую песню?

Повторяю еще раз: у этого форума задача - научить программировать. Точка. Ни о какой оптимизации (тем более - предварительной) речи не идет. Все оптимизации кончаются одинаково: "я оказался не готов к способности окон менять размеры и к тому, что у всех разное разрешение экрана." (С) кто_это_написал_ты_мне_не_напомнишь_?

Точно так же ты можешь оказаться не готов читать чужой код, содержащий совершенно легитимные синтаксические конструкции. А таких "программистов" (которые изо всех конструкций языка знают только for/while/if, и даже про case не слышали никогда, потому что вот подобный тебе "исследователь" говорил им, что case работает медленнее чем несколько if-ов, забывая однако уточнить, на какой машине и с использованием какого компилятора, и вообще КАК он это выяснил) я видел достаточно.

[Lapp]

Повторяю еще раз: у этого форума задача - научить программировать.

Главная и единственная задача этого форума, на мой взгляд - общение. Плюс обучение общению, как естественное приложение. Каждый может поучавствовать в беседе и высказать мнение (если это не троллинг).

На мой взгляд, Тарас дело сказал. Это не оптимизация даже, это прямое улучшение алгоритма. Оно не во всех случаях удобно и даже применимо, но тут вполне к месту. Использование IF тут сильно картину не портит, я согласен. Экономия не такая большая, но тем не менее..

Давайте держаться в рамках темы и доброжелательности.