(* Chapter 10 - Program 5 *)
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.




{ Result of execution

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

}