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'
...