подскажите как исправить?

[wolf777]

не могу понять эта ошибка или так и должно быть?

procedure funcRaspr(); // формирование массива функции распределения
var
i,j,k,n:integer;
tekZn,intN,intK: real;
KolInt: integer;
mo,disp,maxID,minID,Lo,Ko: real;
begin
if RedTxt then // если masID редактировался
begin
for i:=1 to szmID-1 do
begin
masID[i]:=StrToFloat(FrmProizvIS.StrGridID. Cells[i,1]); //восстановление отредактированного masID
end;
RedTxt:=false;
end;
KolInt:=StrToInt(FrmProizvIS.EditKo lInt.Text);
ProcUnit.minT(masID,szmID,minID);
ProcUnit.maxT(masID,szmID,maxID);
TintFr:=round((maxID-minID)/KolInt)+1;
FrmProizvIS.EditTint.Text:=IntToStr (TintFr);
szmFR:=KolInt;
SetLength(masFR,szmFR);
for i:=0 to szmFR-1 do
begin
intN:=(i)*TintFr;
intK:=(i+1)*TintFr;
k:=0;
for j:=0 to szmID-1 do
begin
tekZn:=masID[j];
if (intN < tekZn) And (tekZn <= intK) then
k:=k+1;
end;
masFR[i]:=k;
end;
n:=FrmProizvIS.StrGridFR.ColCount;
FrmProizvIS.LabelR.Caption:='Распре деление по интервалам Tint= '+IntToStr(TintFr)+' сек';
for i:=0 to n-1 do
begin
FrmProizvIS.StrGridFR.Cells[i+1,0]:=IntToStr(i);
FrmProizvIS.StrGridFR.Cells[i+1,1]:=FloatToStr(masFR[i]);
end;
mo:=StrToFloat(FrmProizvIS.EditMo.T ext);
disp:=StrToFloat(FrmProizvIS.EditDi sp.Text);
Lo:=StrToFloat(FrmProizvIS.EditLO.T ext);
Ko:=StrToFloat(FrmProizvIS.EditKO.T ext);
//FrmProizvIS.EditMo.Text:=FloatToStr (mo);
//FrmProizvIS.EditDisp.Text:=FloatToS tr(disp);
//FrmProizvIS.EditLO.Text:=FloatToStr (Lo);
//FrmProizvIS.EditKO.Text:=FloatToStr (Ko);


/////эти строчки не понятные зачем они тут нужны? /////
//////////////////////////////////////////////////////////////
Lo:=mo/disp;
Ko:=Lo*mo;
///////////////////////////////////////////////////////
ProcUnit.StsMasID(masID,szmID,mo,di sp);
end;

процедура

procedure StsMasID(masID: array of real;szmID:integer;var mo,disp: real);
var
i: integer;
sum: real;
begin
sum:=0;
for i:=0 to szmID-1 do
sum:=sum+masID[i];
mo:=sum/szmID;
sum:=0;
for i:=0 to szmID-1 do
sum:=sum+(masID[i]-mo)*(masID[i]-mo);
disp:=sum/(szmID-1);
end;

для чего в коде нужны

Lo:=mo/disp;
Ko:=Lo*mo;

вот не могу разобраться в этом, помогите кто знает пожалуйста...