Рекурсия: выстроить из костяшек домино правильную последовательность максимальной длины

type 
Kostyashka = record
 a, b: 0 .. 6;
    end;
 Domin_Arr = array [1 ..10] of Kostyashka;

var
    n, i, max: byte;
    b, rer, rezult: Domin_Arr;
    busy: array [1 .. 10] of Boolean;

procedure TForm4.Button8Click(Sender: TObject);
   
  Function yes(z, x: Kostyashka): Boolean;
    begin
      if x.a = z.b then
        yes := true
      else
        yes := false;
    end;
   
  Procedure Built(j, k: byte);
    var
      v: byte; 
    begin
      busy[j] := true;
      rer[k] := b[j];
      For v := 1 to n do 
        if not busy[v] then
          if yes(rer[k], b[v]) then
            Built(v, k + 1);
           busy[j] := false; 
      if k > max then
      begin
        max := k;
        rezult := rer;
      end; 
    end;
 
  begin
    max := 0;
    n := strtoint(InputBox('Количество костяшек ', 'Максимально - 10', '5'));
    for i := 1 to n do
    begin
      b[i].a := strtoint(InputBox('Кость № ' + inttostr(i), 'Левая сторона',inttostr(random(7))));
      b[i].b := strtoint(InputBox('Кость № ' + inttostr(i), 'Правая сторона',inttostr(random(7))));
    end;
    for i := 1 to n do
       Built(i, 1);
     For i := 1 to max do { вывод результата }
      Memo1.Lines.Add(inttostr(rezult[i].a) + ':' + inttostr(rezult[i].b));
      end;