怎么用键盘给数组赋值？

Question

我是这样写的：
uses
  SysUtils;
  var
  T:array [1..10] of Integer;
begin
   Write('input 10 nums:');
   Readln(T[1..10]);
   Writeln('you input:',T[1..10]);
   Readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
但不行，请大虾指教

Answer 1

呵呵，那就这样嘛！
uses
  SysUtils;
var
  T:array [1..10] of Integer;
  i: Integer;
begin
   { TODO -oUser -cConsole Main : Insert code here }
   Write('input 10 nums:');
   for i := 1 to 10 do
   begin
     Read(T[i]);
     Writeln('you input:',T[i]);
   end;
   Readln;
end.