Ошибка в объявлении параметра функции (матрицы)

[AnnNoob]

объявление ф-ции

function rank(mas: array [1..3,1..3] of integer): integer;

сама ф-ция

function TForm2.rank(mas: array [1..3,1..3] of integer): integer;
var i,j,k,R,m1,m2,m3,m4,m5,m6,m7,m8,m9: integer;
begin
  r:=0;
  r:=mas[1][1]*mas[2][2]*mas[3][3]+mas[3][1]*mas[1][2]*mas[2][3]+mas[2][1]*mas[3][2]*mas[1][3]-mas[3][1]*mas[2][2]*mas[1][3]-mas[1][1]*mas[3][2]*mas[2][3]-mas[2][1]*mas[1][2]*mas[3][3];
  if r<>0 then
  Begin
    Rank:=3;
    exit;
  end;

  m1:=mas[2][2]*mas[3][3]-mas[2][3]*mas[3][2];
  m2:=mas[2][1]*mas[3][3]-mas[2][3]*mas[3][1];
  m3:=mas[2][1]*mas[3][2]-mas[2][2]*mas[3][1];
  m4:=mas[1][2]*mas[3][3]-mas[1][3]*mas[3][2];
  m5:=mas[1][1]*mas[3][3]-mas[1][3]*mas[3][1];
  m6:=mas[1][1]*mas[3][2]-mas[1][2]*mas[3][1];
  m7:=mas[1][1]*mas[2][2]-mas[1][2]*mas[2][1];
  m8:=mas[1][1]*mas[2][3]-mas[1][3]*mas[2][1];
  m9:=mas[1][2]*mas[2][3]-mas[1][3]*mas[2][2];
  if (m1<>0) or (m2<>0) or (m3<>0) or (m4<>0) or (m5<>0) or (m6<>0) or (m7<>0) or (m8<>0) or (m9<>0) then
  Begin
    Rank:=2;
    exit;
  end;

  Rank:=1;
  exit;
end;

выдает ошибку [Error] Unit2.pas(87): 'OF' expected but '[' found в выделеных красным местах.
если убрать размерность матрицы, все норм, но до момента выделеного зеленым. там выплывает [Error] Unit2.pas(109): Array type required

[tools]

в разделе type объявите отдельно тип для своего массива и в параметрах указывайте потом

[AnnNoob]

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

в разделе type объявите отдельно тип для своего массива и в параметрах указывайте потом

спасибо) только что догадалась.
вот только вторая ошибка осталась

[tools]

какая вторая ошибка ? Вероятно, вы неправильно исправили первую ошибку, поэтому вторая появилась.

[AnnNoob]

нет, она изначально была
[Error] Unit2.pas(109): Array type required

  r:=mas[1][1]*mas[2][2]*mas[3][3]+mas[3][1]*mas[1][2]*mas[2][3]+mas[2][1]*mas[3][2]*mas[1][3]-mas[3][1]*mas[2][2]*mas[1][3]-mas[1][1]*mas[3][2]*mas[2][3]-mas[2][1]*mas[1][2]*mas[3][3];
  if r<>0 then
  Begin
    Rank:=3;
    exit;
  end;

  m1:=mas[2][2]*mas[3][3]-mas[2][3]*mas[3][2];
  m2:=mas[2][1]*mas[3][3]-mas[2][3]*mas[3][1];
  m3:=mas[2][1]*mas[3][2]-mas[2][2]*mas[3][1];
  m4:=mas[1][2]*mas[3][3]-mas[1][3]*mas[3][2];
  m5:=mas[1][1]*mas[3][3]-mas[1][3]*mas[3][1];
  m6:=mas[1][1]*mas[3][2]-mas[1][2]*mas[3][1];
  m7:=mas[1][1]*mas[2][2]-mas[1][2]*mas[2][1];
  m8:=mas[1][1]*mas[2][3]-mas[1][3]*mas[2][1];
  m9:=mas[1][2]*mas[2][3]-mas[1][3]*mas[2][2];

вобщем она на каждом элементе массива вылазит.

[tools]

Еще раз говорю, скорее всего Вы что-то неправильно исправили или написали в куске кода, который не показываете.

P.S. И если Вы так реализовали метод окаймляющих миноров - то это "зря".