PROGRAM read_a_string;

VAR index : BYTE;
    field : STRING[10];

BEGIN
FOR index := 1 TO 5 DO
BEGIN
  WRITE('Enter up to 10 characters ');
  READLN(field);
  WRITELN('The data you entered was (',field,')');
END;
END.