Invalid floating point operation ужасная ошибка

[ВСЁПРОСТО]

написала программку и входе выполнения выскакивает ошибка 207 Неверная операция с плавающей точкой (Invalid floating point operation), помогите пожалуйста, очень надо.
Вот кусочек текста:

procedure TForm1.Button2Click(Sender: TObject);
var
  maxd : extended;
  i, t, maxn, k:integer;
  a:array[1..10] of extended;
  w:array[1..10] of extended;
  w1:array[1..10] of extended;
  d:array[1..10] of extended;
  x:array[1..10] of integer;
  f:array[1..10] of extended;
begin
........
for i:=1 to s do w1[i]:=w[i];
    repeat
      for k:=1 to s do begin
        d[k]:=a[k]*w1[k];
        if d[k]> maxd then begin maxd:=d[k]; maxn:=k; x[k]:=x[k]+1; end;
      end;
       x[maxn]:=x[maxn]+1;
       w1[maxn]:=1-w[maxn];
       t:=t+1;
      for k:=1 to s do
       f[t]:= f[k]+d[k];
      f[t]:=f[t]+maxd;
until    t<=G  ;

в выделенном месте застревает программа (((

[Скандербег]

Значение одного из операндов (a[k] или w1[k]) или результирующее значение (d[k]) выходит за пределы допустимых значений для типа Extended.
Допустимые значения всех числовых типов приведены в справке.
А на какой итерации (шаге) непорядок надо смотреть в отладке.

[evg_m]

for i:=1 to s do w1[i]:=w[i]; //W1 мы заполнили
repeat
for k:=1 to s do begin
d[k]:=a[k]*w1[k]; //а кто заполнит A
i

[p51x]

Можно попробывать заюзать дерективы сопроцессора.