[angvelem]

Сообщение от deniks

но он работает

Конечно , но ужасно написанный код не служит оправданием. Там еще нужно исправить:

Код:

function PODSHIPNIK1(WOB : Single; Index : Integer) : Single;
var
  MAXF : Single;
  IM : Integer;
begin
  Result := 0;
  knn := Round(0.9 * wob / 60 / f[1]);
  kvv := Round(1.1 * wob / 60 / f[1]);
  MK := A[KNN];
  IM := KNN;
  maxf := fmax * (km / 2) / k * im;
  for I := KNN to KVV do
  begin
    if A[i] > MK then
    begin
      IM :=  I;
      maxf := fmax * (km / 2) / k * im;
      WOB1 := MAXF * 60;
    end;
  end;
  {  AM := MAX(A);   }
  WOB1 := MAXF * 60;
  Result := MAXF * SKRAT[Index];
end;

...

for I := 1 to L do
  FT[i] := podshipnik1(wob, I);

так будет правильнее.