Шляпа,поставившая меня в тупик...

[cbuilderx]

Господа программисты,вот такая шляпа у меня:решить систему линейных уравнений методом простых итераций + методом Зейделя...НО!т.к. преподаватель придумал математичекий трюк в виде - решить данную систему,задействовав Спектральные радиусы[Максимальная строковая сумма среди всех строк матрицы коэффицентов при неизвестных]...
Первый Спектральный радиус - просто Максимальная строковая сумма среди всех строк матрицы коэффицентов при неизвестных
Второй спектральный радиус высчитывается на основе матрицы {D = (I-L)^(-1)*U}, где L и U: нижнетреугольная и верхнетреугольная матрицы соотвественно.Для этой цели я использовал функцию декомпозиции Гаусса.
Так вот,эти два алгоритма реализовал...Но при выводе в

LabeledEdit2.Text:='R(D)=' + FloatToStr(MaxStr2);

у меня ОШИБКА...Пошаговая отладка привела меня к тому,что по какой-то непонятной причине в процедуре

procedure MaxString1(x:MyArray; var y:omyarray);

после того как была найдена Максимальная сумма всё смывается в унитаз...После долгих размышлений решил попросить вашей помощи и советов,что не так?
Файл проекта + листовки с математической белибердой прилагаются...

[Rin]

Не смотрел исходники, но думаю, что дело в этом - переменная, в которую записываешь сумму, должна быть глобальной. Процедуры и функции основаны так, что после того, как отработали, они "смывают в унитаз" все локальные переменные.

[cbuilderx]

Сообщение от Rin

Не смотрел исходники, но думаю, что дело в этом - переменная, в которую записываешь сумму, должна быть глобальной. Процедуры и функции основаны так, что после того, как отработали, они "смывают в унитаз" все локальные переменные.

Сделал,но ошибка возникает только с матрицей D[i,j],подставив любые другие,всё прекрасно работает...

[Stilet]

Шляпа в том что ты используя динмассивы не позаботился о проверке выхода цикла за их пределы.
Замени все

for i:=0 to n-1 do

и подобные, где идет работа с массивом на

 for i:=Low(переменка массива) to High(переменка массива) do