Вычисление_средневзвешенных_парамет ров

[yuliyapg]

Ребятки, помогите! Есть программа для вычисления средневзвешенных параметров пористости, глинистости, нефтенасыщенности и др. в нефтенасыщенных и водонасыщенных пластах. Нужно ее переделать так, чтобы она считала параметры только в нефтенасыщенных пластах. Программа написана в системе ПРАЙМ (софт для геофизиков), но язык похож на Паскаль

//. 13/10/2010
Step=0;
Option=16;
IN
'$Стратиграфия';'!Коллектор'; '!Насыщение';
'#Кп_п,Кп_пс_п';'#Кгл_п';'#Кнг_п';' #Спесч';
OUT
begin
if (Index=0) and (Well=StartWell) then
S= 'Скважина'+Char(9)+'Стратиграфия'+C har(9)+'Сумма_толщин'+Char(9)+'Сумм а_толщин_нефт'+Char(9)+
'Кп_ср_взв'+Char(9)+'Кгл_ср_взв'+Ch ar(9)+'Кнг_ср_взв'+Char(9)+'Спесч_с р_взв'+Char(13);
if Стратиграфия<>'' then begin
D=0; N=0; M=0; Hmin=0; Hmax=0; M2=0; H2=0; Mw=0; Mw2=0;
D0=0;N0=0;M0=0;Hmin0=0;Hmax0=0; M20=0;H20=0;Mw0=0;Mw20=0;
D1=0;N1=0;M1=0;Hmin1=0;Hmax1=0; M21=0;H21=0;Mw1=0;Mw21=0;
D2=0;N2=0;M2=0;Hmin2=0;Hmax2=0; M22=0;H22=0;Mw2=0;Mw22=0;
D3=0;N3=0;M3=0;Hmin3=0;Hmax3=0; M23=0;H23=0;Mw3=0;Mw23=0;
D4=0;N4=0;M4=0;Hmin4=0;Hmax4=0; M24=0;H24=0;Mw4=0;Mw24=0;
D5=0;N5=0;M5=0;Hmin5=0;Hmax5=0; M25=0;H25=0;Mw5=0;Mw25=0;
Песчанистость=Summ('Коллектор','',' 1',HP,H,0,D,N,M,Hmin,Hmax,M2,H2,Mw, Mw2);
Расчлененност=N;
Сумма_толщин =D;
Песчанистост0=Summ('Насыщение','',' 26',HP,H,0,D0,N0,M0,Hmin0,Hmax0,M20 ,H20,Mw0,Mw20);
Сумма_толщин_нефт=D0;
// Песчанистост1=Summ('Стратиграфия',' ','*',HP,H,0,D1,N1,M1,Hmin1,Hmax1,M 21,H21,Mw1,Mw21);
// Сумма_толщин_страт =D1;
Песчанистост2=Summ('Кп_п','','*',HP ,H,0,D2,N2,M2,Hmin2,Hmax2,M22,H22,M w2,Mw22);
Кп_ср_взв=Mw2;
Песчанистост3=Summ('Кгл_п','','*',H P,H,0,D3,N3,M3,Hmin3,Hmax3,M23,H23, Mw3,Mw23);
Кгл_ср_взв=Mw3;
Песчанистост4=Summ('Кнг_п','','*',H P,H,0,D4,N4,M4,Hmin4,Hmax4,M24,H24, Mw4,Mw24);
Кнг_ср_взв=Mw4;
Песчанистост5=Summ('Спесч','','*',H P,H,0,D5,N5,M5,Hmin5,Hmax5,M25,H25, Mw5,Mw25);
Спесч_ср_взв=Mw5;
end
else begin
Сумма_толщин=Null;
Сумма_толщин_нефт=Null;
Кп_ср_взв=Null;
Кгл_ср_взв=Null;
Кнг_ср_взв=Null;
Спесч_ср_взв=Null;
end;
if (Стратиграфия<>'') and (Сумма_толщин>0) then begin
S= S+
_Well+Char(9)+Стратиграфия+Char(9)+ FloatToStr(Сумма_толщин,2)+Char(9)+
FloatToStr(Сумма_толщин_нефт,1)+Cha r(9)+FloatToStr(Кп_ср_взв,2)+Char(9 )+
FloatToStr(Кгл_ср_взв,2)+Char(9)+Fl oatToStr(Кнг_ср_взв,2)+Char(9)+Floa tToStr(Спесч_ср_взв,2)+Char(10);
end;
if (Well=StopWell) and (Index=StopIndex) then
WriteExcel(S);

end

p.s. насыщение =28, коллектор =1

Буду очень благодарна за Вашу помощь!