home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBOTUT.ZIP / READSTRG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-09-16  |  231 b   |  13 lines
  1. PROGRAM read_a_string;
  2.  
  3. VAR index : BYTE;
  4.     field : STRING[10];
  5.  
  6. BEGIN
  7. FOR index := 1 TO 5 DO
  8. BEGIN
  9.   WRITE('Enter up to 10 characters ');
  10.   READLN(field);
  11.   WRITELN('The data you entered was (',field,')');
  12. END;
  13. END.