From: jrs@merlyn.demon.co.uk   
      
   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 ;   
     Inc(J) ; A[J] := X ;   
     end ;   
   { untested, but about right; can be shortened }   
      
   --   
    (c) John Stockton, Surrey, UK.   ?@merlyn.demon.co.uk   Turnpike v6.05   MIME.   
      TP/BP/Delphi/&c., FAQqy topics & links;   
        RAH Prins : c.l.p.b mFAQ;   
      Timo Salmi's Turbo Pascal FAQ.   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)