From: NoSpamPleaseButThisIsValid3@gmx.net   
      
   Dr J R Stockton schrieb:   
   > In comp.lang.pascal.borland message <1188326227.893577.83760@o80g2000hse   
   > .googlegroups.com>, Tue, 28 Aug 2007 18:37:07, cmakal   
   >  posted:   
   >   
   >> and I wanted to search it to find all values between 1 and 40.   
   >   
   > while not EoF(F) do begin   
   >   Readln(F, S) ;   
   >   Val(S, X, N) ;   
   >   if N<>0 then continue;   
   >   if (X<=1) and (X>=40) continue ;   
      
   Whoops! Which x is <=1 and >=40? Should be "or" instead of "and". (note   
   that this excludes 1 and 40 - use < and > to include the bounds)   
      
   >   Inc(J) ; A[J] := X ;   
   >   end ;   
   > { untested, but about right; can be shortened }   
      
   almost :-)   
      
   Anyway, I prefer the ifs the other way round to avoid too many continue   
   statements:   
      
   if (N=0) and (x>=1) and (x<=40) then begin   
     inc(j); a[j]:=x;   
   end;   
      
   Also, I guess "between 1 and 40" means including 1 and 40.   
      
   Wolf   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)