PROGRAM read_into_an_array;

VAR index : INTEGER;
    place : ARRAY[1..10] OF CHAR;

BEGIN
FOR index := 1 TO 5 DO
BEGIN
  WRITE('Enter up to 10 characters ');
  READLN(place);
  WRITELN('The data you entered was (',place,')');
END;
END.
      (* Note; This file will not compile properly
         with TURBO Pascal 2.0. It will work as
         stated with TURBO Pascal 3.0 and with most
         other compilers, since it is written in
         standard Pascal. To make it work with TURBO
         Pascal 2.0, change the ARRAY in line 4 to
         a STRING[10].                              *)