[deniks]

вот переделал, значения уже показывает нормальные, что уже радует, но вопрос, правильно ли я сделал с Result и массивом?

Код:

Function PODSHIPNIK1(WOB : real) : real;
    var MAXF : real; 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
              begin
              FT[i] := MAXF * SKRAT[i];
              Result := FT[i];
              end;
    end;

...

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