метод квадратного корняЖ исправить ошибки в коде.

[at13]

Задача:
Для заданной системы 4 на 4 с вектором bнайти решение с помощью метода квадратного корня и для матрицы коэффициентов найти обратную матрицу с помощью того же метода.

Я пишу программу на Delphi:


Delphi ругается в строчке
function simmetr (e:array of real)array [1..4] of real real;

а если компилирую часть кода без этой кнопки, то программа вылетает в строчке
U[i,j]:=t[i,j]/u[i,i] ;
сама эта строчка выделяется синим.
Пожалуйста, помогите исправить эти ошибки, очень надо
Проект прикрепляю в архиве .

[at13]

Ой Не тот архив , а вот этот нужен: