Проблема с функцией

[VADYA12]

Возникает ошибка при работе функции. Притом не сразу, а после 2х успешных выполнений. Так для массива 2x2 и 3x3 - всё работает идеально. А с массивами большей размерности вылетает ошибка Access violation на повторный вызов функции в функции.

type
TMas=Array of Array string;
....
SetLength(Mas,d,d);
....
BufMas:=Variant(BufMas);

function Variant(Mas: TMas): TMas;                                              //Возвращяет перечень главных и побочных диагоналей
var BufMas: TMas;
  v,c,s,l: integer;
begin
  If Length(Mas)=2 then                                                           //массив 2х2 (меньше уже смешно, а больше будет сложнее)
  begin
    SetLength(Result,2);
    SetLength(Result[0],2);
    SetLength(Result[1],2);
    Result[0,0]:=Mas[0,0];  //Главная
    Result[0,1]:=Mas[1,1];  //диагональ;
    Result[1,0]:=Mas[0,1];  //Побочная
    Result[1,1]:=Mas[1,0];  //диагональ;
  end else
  begin
    Setlength(Result,0);  //Я тут забыл очистить память...
    For v:=High(Mas) downto Low(Mas) do begin
      c:=0;
      s:=0;
      SetLength(BufMas,Length(Mas)-1);
      While c<d do begin
        If v<>c then begin
          For l:=Low(BufMas) to High(BufMas) do begin
            SetLength(BufMas[l],s+1);
            BufMas[l,s]:=Mas[l+1,c];                                 //Генерируем массив N-1xN-1 убирая 1-ую строчку и i-ый столбец
          end;
          Inc(s);
        end;
        Inc(c);
      end;
    BufMas:=Variant(BufMas); //Здесь указывается место ошибки!                                                   //Передаем сгенерированный массив снова в эту процедуру пока не будет массив 2х2, ну а при 2х2 всего 2 возможные комбинации
    For c:=Low(BufMas) to High(BufMas) do
    begin
      SetLength(Result,Length(Result)+1);
      SetLength(Result[Length(Result)-1],Length(BufMas[c])+1);
      For s:=Low(BufMas[c]) to High(BufMas[c]) do Result[Length(Result)-1,s]:=BufMas[c,s];                                //Добавляем возможные результаты в нашу функцию (функции будут запускаться много раз, самая первая и будет иметь конечный результат, остальные будут иметь результат на усеченные массивы)
      Result[Length(Result)-1,Length(BufMas[c])]:=Mas[0,v];                     //Добавляем в конец результатов предыдущих функций, нашу переменную в i-ом столбце
    end;
  end;
end;
end;

[Serge_Bliznykov]

Простите, а зачем весь этот ужас с рекурсией и динамическим созданием массивов?

[kropotkina-alice]

А мне стало интересно - как он читает в редакторе свои немыслимо длинные строки?
Или у него экран больше 4000 пикселов по ширине?
Или он понятия не имеет о переносе строк?

[northener]

Он их не читает. Он их пишет.

[IvaniuS]

оффтоп: Есть мониторы сейчас такие длинные как 2 и разрешение у них прилично, жалко стоит под 60 тыр.
По теме - варианты решения:
1)Уйти от рекурсии чтобы было проще читать код и Вам и Нам. Если все еще будет ошибка Ф7 под палец и вперед.
2)Обьяснить суть этого всего ибо я почти ничего не понял в задаче и тогда можно будет искать варианты ответа.

[Аватар]

BufMas[l,s]:=Mas[l+1,c];

Ошибка скорее всего здесь - попытка чтения из Mas по не существующему индексу. Ставь бряки и смотри