Рекурсия с возвратом на бутылках) Подайте идею!

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var X,Y:array of integer;//массивы времени   заполнения(X) и закупоривания(Y)
    n,i,sumX,sumY:integer;
    fin,fout: textfile;
begin
   AssignFile(fin, 'input.txt');//связываем файл с именем
   reset(fin);//подготавливаем для чтения
   readln(fin,n); //считываем количество бутылок и устанавливаем размерность массивов
   setlength(X,n);
   setlength(Y,n);
   i:=0;
   while(not eof(fin)) do
   begin
     readln(fin,X[i]);
     readln(fin,Y[i]);
     i:=i+1;
   end;
   closefile(fin); //закрываем файл
 
   readln;
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
Type
  MyArr = Array Of Integer;
Var
  X,Y : MyArr; //массивы времени заполнения(X) и закупоривания(Y)
    Z : MyArr; //Массив текущего порядка
    R : MyArr; //Массив результирующего порядка
   mm : Integer; //Минимальное время пропуска всех бутылок
 
    n : Integer;
  fin : TextFile;
 
//----------------------------------------------------------
// Времена на момент обращения к процедуре
// Tw - Время заполнения,
// Tz - Время нужное ещё на закупоривание.
// ii - порядковый номер следующей бутылки (на конвейер).
//----------------------------------------------------------
Procedure MnM(Tw,Tz,ii:Integer);
var
  i,k,t : Integer;
begin
  For i:=0 To n-1 Do
  if (Z[i]>ii) Or (Z[i]=0) then
  Begin
    Z[i]:=ii;
    k:=X[i]-Tz; //Время ожидания тек. бут. под закупоривание после заполнения
    t:=Y[i];
    If k<0 Then
    //Если закрытие предыдущих длится дольше наполнения текущей
    Begin
      t:=t-k;
      k:=0;
    End;
 
    k:=Tw+k+X[i]; //Время заполнения бутылок до текущей включительно
 
    If ii<n Then
    MnM(k,t,ii+1) Else
    If (k+t)<mm Then
    Begin
      mm:=k+t;
      For k:=0 To n-1 Do
      R[k]:=Z[k]; //Запоминаем последовательность меньшего результата
    End;
    Z[i]:=0;
  End;
End;
 
Var
  i,j : Integer;
begin
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  AssignFile(fin, 'input.txt');//связываем файл с именем
  Reset(fin); //подготавливаем для чтения
  ReadLn(fin,n); //считываем количество бутылок и устанавливаем размерность массивов
  SetLength(X,n);
  SetLength(Y,n);
  SetLength(Z,n);
  SetLength(R,n);
  i:=0;
  While(Not Eof(fin)) Do
  Begin
    Readln(fin,X[i]);
    Readln(fin,Y[i]);
    i:=i+1;
  End;
  CloseFile(fin); //закрываем файл
 
  //Перебираем варианты...
  mm:=MaxInt;
 
  For i:=0 To n-1 Do
  Begin
    For j:=0 To n-1 Do Z[j]:=0;
    Z[i]:=1;
    MnM(X[i],Y[i],2);
  End;
 
  //Выдаём результирующую последовательность...
  For i:=0 To n-1 Do
  Z[R[i]-1]:=i+1;
  // Здесь в массиве R - порядковые номера каждой бутылки
  // исходной последовательности в конечной последовательности:
  // 1-я - 4-ой, 2-1, 3-3, ... 10-я - 6-ой. (первая идёт четвёртой, вторая...)
  // В массиве Z - номера бутылок исходной последовательности в порядке их
  // выставления на конвейер: 1-ой - 8-я, 2-5, 3-3, ... 10-й - 7-я.
  // (первой идёт восьмая, второй...)
 
  WriteLn('Бутылки должны выставляться в следующей последовательности:');
  For i:=0 To n-1 Do
  WriteLn(Z[i]);
 
  WriteLn('Полное время разлива : ',mm);
 
  //Запишем в файл...
  AssignFile(fin, 'ouput.txt');//связываем файл с именем
  Rewrite(fin); //подготавливаем для записи
 
  For i:=0 To n-1 Do
  Begin
    WriteLn(fin,X[Z[i]-1]);
    WriteLn(fin,Y[Z[i]-1]);
  End;
 
  CloseFile(fin); //закрываем файл
 
  ReadLn;
  //Освободим память массивов
  Finalize(X);
  Finalize(Y);
  Finalize(Z);
  Finalize(R);
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  T_item = String; // здесь может быть любой тип
  P_Node = ^T_Node;
  T_Node = record
             info: T_item;
             key: integer;
             left, right: P_Node;
           end;
  var root: P_Node; // корень дерева
      fin,fout: textFile;
      n,m,dec,kPrev:integer;
      binStr,strByte:string;
 
 
// вспомогательная процедура
procedure PrintKey(t: P_Node);
begin
  write(t^.key: 5);
  write('/');
  write(t^.info);
end;
 
 
// обход сверху вниз     К-Л-П
procedure preorder(t: P_Node);
begin
  if t <> nil
    then begin
      PrintKey(t);  // обработать корневой узел
      preorder(t^.left);// обойти левое поддерево в нисходящем порядке
      preorder(t^.right);//обойти правое поддерево в нисходящем пор-ке
    end;
end;
 
// вставка элемента в дерево (рекурсивная процедура)
procedure InsertInTree(var t: P_Node; k: Integer; str:String);
begin
  if t = nil // если найдено место для нового узла
    then begin
           new(t); // распределяем память
           t^.left := nil; // устанавливаем пустые ссылки для левого и
           t^.right := nil; // правого поддеревьев
           t^.key := k; // заполняем ключевое поле
           t^.info := str;
         end // then
{иначе определяем, в каком поддереве узла t должен располагаться элемент с таким ключом}
    else
    begin str:=str+t^.info; //записываем путь к вершине
    if k <= t^.key // если новый ключ меньше или равен текущему
           then InsertInTree(t^.left, k,str) // вставим в левое поддерево
           else InsertInTree(t^.right, k,str); // а иначе – в правое
    end;
end;
 
 
function bin2dec(s:string):integer;      //  функция перевода числа из 2 СС в 10
var x,i:integer;
begin
  x:=0;
  for i:=1 to length(s) do
  begin
     x:=x+ord(s[i])-ord('0');
     if i<length(s) then x:=x*2;
   end;
   bin2dec:=x;
end;
 
function dec2bin(x:integer):string;            //из 10 в 2 сс
var s:string;
begin
  s:='';
  while x>0 do
  begin
     s:=chr(ord('0')+x mod 2)+s;
     x:=x div 2;
  end;
dec2bin:=s;
end;
 
begin
assignFile(fin,'input.txt'); //связываем файл с именем
reset(fin);  //открываем для чтения
readln(fin,n);      //считываем количество целых чисел в файле
readln(fin,m); //и количество бит
kPrev:=0;
while not eof(fin) do
begin
  readln(fin,binStr); //считываем число в двоичном представлении
  dec:=bin2dec(binStr); //переводим в 10ю сс
  strByte:=IntToStr(dec)+'-->';
  InsertInTree(root, dec,strbyte); //вставляем вершину с заданным ключом и инф полем
  kPrev:=dec;
end;
preorder(root); //root - корень дерева в котором ключи - числа заданные в файле и переведенные в 10ю сс
//а инф поле - путь к вершине
closeFile(fin);
readln;
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  T_item = String; // здесь может быть любой тип
  P_Node = ^T_Node;
  T_Node = record
             info: T_item;
             key: integer;
             left, right: P_Node;
           end;
  var root: P_Node; // корень дерева
      fin: textFile;
      n,m,dec:integer;
      binStr,strByte:string;
 
 
// вспомогательная процедура
procedure PrintKey(t: P_Node);
begin
  writeln;
  write(t^.key: 5);
  write('/');
  write(t^.info);
end;
 
// обход сверху вниз        К-Л-П
procedure preorder(t: P_Node);
begin
  if t <> nil then
  begin
    PrintKey(t);  // обработать корневой узел
    preorder(t^.left);// обойти левое поддерево в нисходящем порядке
    preorder(t^.right);//обойти правое поддерево в нисходящем пор-ке
  end;
end;
 
// вставка элемента в дерево (рекурсивная процедура)
procedure InsertInTree(var t: P_Node; k: Integer; str:String);
begin
  if t = nil Then
  // если найдено место для нового узла
  begin
    new(t); // распределяем память
    t^.left := nil; // устанавливаем пустые ссылки для левого и
    t^.right := nil; // правого поддеревьев
    t^.key := k; // заполняем ключевое поле
    t^.info := str;
  end else
  {иначе определяем, в каком поддереве узла t должен располагаться элемент с таким ключом}
  begin
    str:=t^.info+'-->'+IntToStr(k); //записываем путь к вершине
    if k <= t^.key then
    // если новый ключ меньше или равен текущему
    InsertInTree(t^.left, k,str) // вставим в левое поддерево
    else InsertInTree(t^.right, k,str); // а иначе – в правое
  end;
end;
 
function bin2dec(s:string):integer;      //  функция перевода числа из 2 СС в 10
var x,i:integer;
begin
  x:=0;
  for i:=1 to length(s) do
  x:=(x Shl 1)+ord(s[i])-ord('0');
  Result:=x;
end;
 
function dec2bin(x:integer):string;            //из 10 в 2 сс
var s:string;
begin
  s:='';
  while x>0 do
  begin
    s:=chr(ord('0')+(x And 1))+s;
    x:=x Shr 1;
  end;
  Result:=s;
end;
 
Var
  i,j : Integer;
begin
  assignFile(fin,'input.txt'); //связываем файл с именем
  reset(fin);    //открываем для чтения
  readln(fin,n); //считываем количество целых чисел в файле
  readln(fin,m); //и количество бит
  root:=Nil;
  For i:=1 To n Do
  begin
    If eof(fin) then Break;
    readln(fin,binStr); //считываем число в двоичном представлении
    j:=Pos(' ',binStr); //В файле после пробела число в десятичной сс для наглядности
    If j=0 Then j:=Length(binStr)+1;
    If (j-1)>m Then j:=m+1; //Ограничение по количеству бит
    binStr:=Copy(binStr,1,j-1);
 
    dec:=bin2dec(binStr); //переводим в 10ю сс
    strByte:=IntToStr(dec);
    InsertInTree(root, dec,strbyte); //вставляем вершину с заданным ключом и инф полем
  end;
  preorder(root); //root - корень дерева в котором ключи - числа заданные в файле и переведенные в 10ю сс
  //а инф поле - путь к вершине
  closeFile(fin);
  readln;
end.

str:=str+t^.info;