[Haki]

Собтвенно есть данный код:

Код:

function fint (x , y: array of real; x0:real; kol:integer ):real;
  var
    i:integer;
    begin
	    for i:= 1 to (kol - 1) do
        begin
		      if ( x0 >= x[i]) and (x0<=x[i+1] ) then
            begin
			        fint:=  y[i] + ( x0 - x[i] ) * ( y[i+1] - y[i] ) /
                                                      ( x [ i + 1 ] - x [ i ] );
			      exit;
            end;

	      end; //of for

	    if ( x0>x[kol] ) then fint:= y[kol]
	    else fint:= y[1]
	    end;

Вся проблемма заключается в том, что при переходе к

Код:

 for i:= 1 to (kol - 1) do

входной параметр х просто берет и обнуляется.
Проводил отладку по шагам, после begin'a массив из 10 непустых значений превращается в массив из одного элемета со значение 0.. .

С чем это может быть связано?