не понимаю, почему выдает ошибку

type
    Tmass=array[1..100] of double;
    Tmatrix=array[1..100,1..100] of double;

var
  Form1: TForm1;
  mas: array [1..100] of integer;
  korni:Tmass;
  ish_matr: Tmatrix;
  ccc: array[1..10] of Tmatrix;
  free: Tmass;
...
function func(x:double):double;  
begin
func:=x*x*x;
end;
...
procedure Gauss(ish_matr:TMatrix; free:TMass);
var
    n,k,i,j:integer;d:double;
begin
n:=count;
    for i:=1 to n-1 do
       begin
         for k:=i+1 to n do
           begin
             d:=ish_matr[k,i]/ish_matr[i,i];
             for j:=i+1 to n do
               ish_matr[k,j]:=ish_matr[k,j]-ish_matr[i,j]*d;
             free[k]:=free[k]-free[i]*d;
           end;
       end;
    for i:=n downto 1 do
       begin
         for j:=i+1 to n do
            free[i]:=free[i]-ish_matr[i,j]*korni[j];
         korni[i]:=free[i]/ish_matr[i,i];
       end;
       end;
...
procedure sbor;
var i,j: integer;
begin
for i:=1 to 4 do free[i]:=func(mas[i]);  // Array type required
free[5]:=proisv(1,mas[1]);  // Array type required
free[6]:=proisv(2,mas[1]);  // Array type required
free[7]:=proisv(1,mas[3]);  // Array type required
free[8]:=proisv(1,mas[4]);  // Array type required
...
Gauss(ish_matr, free);   //Incompatible types: 'Tmass' and 'procedure, untyped pointer or untyped parameter'
...

free плохое название
ну и ты в гаусса передавай всё-таки не по копии

спасибо!

Why not settling on games that is fun and at the same time your earning. Well it'll make suspense because the game is well but dude just try it and it gave me hope while pandemic is real rn. The Notorious Slot Machine: How Does it Work?