[angvelem]

У тебя получается масло-масляное. Функция возвращает значение FT[i], и принимается туда же:

Код:

Function PODSHIPNIK1(WOB : real) : real;
...
 Result := FT[i];
...
FT[i] := podshipnik1(wob);

Смысла тогда делать функцию нет, по сути это процедура. Измени на:

Код:

function PODSHIPNIK1(WOB : Single) : 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;
  for I := 1 to L do
    Result := MAXF * SKRAT[i];
end;

...

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

Но этот код странен:

Код:

  for I := 1 to L do
    Result := MAXF * SKRAT[i];