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.


Result of execution

(The output depends on the data entered at the keyboard)