請問下列程式段為何跑不出選股

var: i(0),cun(0),los(0);

value4=getfield("成交量");

if value4>1500 then

for i=0 to 9

begin

  value1=getfield("最高價")[i];

  value2=getfield("最低價")[i];

  value3=(value1-value2)/value2;

  while value3 > 0.4

  cun=cun+1;

  while value3 < 0.4

  begin

  los=los+1;

  print("高於次數=",cun,"  低於次數=",los);

  if cun>7 then 

  ret=1;

  end;

  end;

以上 ，編譯沒有問題，但跑不出選股來，請問小幫手，哪裡出錯了？？？