Активировать код

[newbieee]

Здравствуйте, имеется код паскаль/делфи, так как знаний мало, никак не могу активировать этот код, пытался приписать определение функции Matrix, потом ругается на n, и тд....Буду благодарен, если ответ будет развернутым, спасибо)

P.S: В этом коде удовлетворяет ли всё этим условиям?

Составление следующих процедур:
1) разложение матрицы на множители;
2) решение системы Аx = b;
3) нахождение определителя матрицы;
4) нахождение обратной матрицы;
Разложение получать, воспользовавшись методом LU-разложений (также используется метод Гаусса)
Портрет матрицы:
Матрица A – ленточная матрица, размера n*n с шириной ленты 2k + 1(n и k входящие параметры)

Procedure M_LU(A : Matrix ; Var L: Matrix ; Var U :Matrix  );
{ Процедура разложения исходной матрицы на нижнюю и верхнюю треугольные}
{                   A = L  *  U                                         }
{     матрицу А (задана в головной программе ) можно представить :
      L(lower)   :  в виде произведения  нижней  треугольной матрицы
                 (т.е. все элементы выше главной диагонали  у нее нулевые)
      U (upper) :  верхней треугольной  матрицы   (ниже главной
                 диагонали у нее нули , а на главной стоят единицы))}
(* Type  Типы , объявленные в программе:
           Matrix=array[1..n,1..n] of real;
           vektor=array[1..n] of real ; *)
{   n - размерность матрицы  }
Var
  i,j,k,m :integer;
  sum:real;
Begin
  for i:=1 to n do      {Столбец 1 матрицы А переписывается как  }
        L[i,1]:=A[i,1]; {         столбец 1 матрицы L             }
  for j:=2 to n do      {      Определяется строка 1   матрицы U }
        U[1,j]:=A[1,j] / L[1,1];
  {Для разложения матрицы А используется компактная схема метода Гаусса }
  for m:=2 to n do
   begin
     for i:=m to n do         {Заполнение матрицы L}
      begin
          sum:=0;
          for k:=1  to m-1 do  sum:=sum+ L[i,k]*U[k,m];
          L[i,m]:=A[i,m]-sum;
      end;
      for j:=m+1 to n do      {Заполнение матрицы U}
          begin
             sum:=0;
             for k:=1 to m-1 do
                 sum:=sum+ L[m,k]*U[k,j];
             U[m,j]:=(A[m,j] - sum) / L[m,m];
          end;
  end;
    for i:=1 to n do  U[i,i]:=1; {заполнение диагонали матрицы U }
 end;

[newbieee]

Вот что реально надо найти, есть ли всё это в коде....