Метод Лагранжа (Delphi)

[spinogryz_ua]

Доброго времени суток!

Вот не могу никак понять почему постоянно компилятор ругается на мои массивы.
Может вы подскажите что не так?

begin
  Memo1.Clear;
  f:=0;
  x[1]:=2.7; x[2]:=1.75; x[3]:=2.8;
  x[4]:=2.85; x[5]:=2.9; x[6]:=2.95;
  y[1]:=1.58; y[2]:=1.49; y[3]:=1.37;
  y[4]:=1.24; y[5]:=1.08; y[6]:=0.91;
  z[1]:=2.83; z[2]:=2.93; z[3]:=2.72;

  Memo1.Lines.Add('x |  2.7   1.75  2.8   2.85  2.9   2.95');
  Memo1.Lines.Add('');
  Memo1.Lines.Add('y |  1.58  1.49  1.37  1.24  1.08  0.91');

  //Метод Лагранжа
  for k:=1 to 3 do begin
         f:=0;
         for i:=1 to 6 do begin
             chis:=y[i];
             znam:=1;
             for j:=1 to 6 do begin
                 if(not(i=j))then
                     begin
                        chis:=chis*z[k]- x[j];
                        znam:=znam*x[j]-x[j];
                     end;
             end;
             f:=f+chis/znam;
         end;
         ff[k]:=f;
     end;

end;

Недовольствуется конкретно этим:

chis:=chis*z[k]- x[j];
znam:=znam*x[j]-x[j];

[raxp]

скриншот недовольства в тему.

[spinogryz_ua]

Уже разобрался. Проблема была в конвертации типов.
Сюда это как раз не попало так как ошибочно скинул уже правильный код.

Спасибо вам!