[deniks]

каждый день, новые проблемы( теперь дошел до след. процедуры и ее опять не считает(

Думаю ошибка в том, что оно как-то не может заполнить массив YG. Это я уже попытался переделать, но все-равно не считает

Данная проблема уже решилась заменой m=1 YG[J,1]

Код:

function SUMGARM(knn, kvv : integer) : real;
    var S : real;
      begin
        Result := 0;
        S := 0;
        for I := KNN to KVV do
          begin
            S := S + sqr(A[i]);
          end;
        Result := sqrt(S);
    end;

...

     for J := 1 to L do
        begin
          kn:=round(0.98*Ft[J]/f[1]);
          kv:=round(1.05*Ft[J]/f[1]);
          IG := Maxgarm(kn,kv);
     {  Maxgarm(A,kn,kv,ig);  }
          FG[J,M] := IG * F[1];
          KN := round(IG - 3);
          KV := round (IG + 3);
          YG[J,m] := SUMGARM(KN, KV);
     end;