из менить длину массива

[ec_stasis]

function inArray(x: integer; mas: array of integer): boolean;
var i, n: integer;
begin
i := 0;
n := length(mas) + 1;
setLength(mas, n);
mas[n - 1] := x;
while not mas = x do
i:= i + 1;
if i = n - 1 then
Result := true
else
Result := false;
end;

В выделенной строке компилятор говорит, что "incompatible types". Не пойму в чем проблема?

 

[Sax-mmS]

так низя делать
можно так -

type
  Tmas =  array of integer;

function inArray(x: integer;var mas: Tmas): boolean;
var i, n: integer;
begin
   i := 0;
   n := length(mas) + 1;
   setLength(mas, n);
   mas[n - 1] := x;
   while not mas[i] = x do
       i:= i + 1;
   if i = n - 1 then
       Result := true
   else
       Result := false;
end;

 

[ec_stasis]

Спасибо!
А чем это объясняется?

 

[BUG(O)R]

ec_stasis
Тем, что при передаче параметров ты можешь передать через стек указатель на массив, но никак не сам массив.