Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!think.com!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!lll-winken!Firewall!ddsw1!infopls!hoffmann
From: hoffmann@infopls.chi.il.us (Robert Hoffmann)
Newsgroups: comp.lang.pascal
Subject: Re: Problems with Read Procedure
Message-ID: <FeHB32w164w@infopls.chi.il.us>
Date: 21 May 91 21:55:02 GMT
References: <26937@adm.brl.mil>
Organization: INFOPLUS support, Wheeling, IL
Lines: 27

GRAD205%BRFUEM.BITNET@uicvm.uic.edu ( Humberto) writes:

> var
> begin
>     ClrScr;
>     Read(Name);
>     n := 1;
>     repeat
>        Read(Field[n]);
>        n := n + 1;
>     until n = 11;
> end.
> 
> Well, this program doesn't have errors at compilation ... But when I run it,
> Only Name and Field[1] are read, Field[2], Field[3], ..., Field[10]  no  ...
> What is happening? Please, could someone help me?
 
I suspect it's your use of the Read() function.
 
Read stops at the first CR/LF combination it finds... and won't continue 
until you clear the CR/LF out.
 
Suggest changing the Read() to ReadLn() and testing it that way.
 
Rob
--------------------------------
hoffmann@infopls.chi.il.us