From: jrs@merlyn.demon.co.uk   
      
   In comp.lang.pascal.borland message <46d4b99e$0$30382$9b4e6d93@newsspool   
   4.arcor-online.net>, Wed, 29 Aug 2007 02:11:08, Wolf Behrenhoff   
    posted:   
   >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".   
      
   Correct correction.   
      
   > (note   
   >that this excludes 1 and 40   
      
   That's what was requested.   
   >   
   >>   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:   
      
   Agreed.  As time was 23:39:32 I left it as it was!   
      
   >Also, I guess "between 1 and 40" means including 1 and 40.   
      
   Not in English; "zwischen".  That's only the _intended_ meaning.   
      
      
      
   BTW, *LEGALLY*, what's the German definition of the Date of Easter   
   Sunday? - I mean which (web?) document, not what does it say.   
      
   --   
    (c) John Stockton, Surrey, UK.  ?@merlyn.demon.co.uk   Turnpike v6.05   IE 6.   
    Web   - w. FAQish topics, links, acronyms   
    PAS EXE etc :  - see 00index.htm   
    Dates - miscdate.htm moredate.htm js-dates.htm pas-time.htm critdate.htm etc.   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)