pascal中的数组语法

我是java程序员，但现在我开始学习更多关于pascal编程的知识 你能帮助我如何用pascal编写这个java语法吗

        A[m] = scan.nextInt();

程序要求用户输入“大小”，然后输入元素。。。（使用数组） 我已经这样做了：

writeln('How many Number you would like to sort:');
  readln(size);


  For m := 1 to size do
Begin
   if m=1 then 
 begin 
 writeln('');
 writeln('Input the first value: ');
     (????)



 End;

我不知道如何完成它

java语法是：

for( m = 0; m<size; m++)
{
    if(m == 0)
    {   
        System.out.println("");
        System.out.print("^_^ Input The First Value:");
        A[m] = scan.nextInt();
    }
    else if(m == size -1)
    {
        System.out.print("^_^ Input The Last Value:");
        A[m] = scan.nextInt();
    }
    else
    {
        System.out.print("^_^ Input The Next Value:");
        A[m]= scan.nextInt();
    }
}

对于（m=0；m尝试：
readln（a[m]）；
试试：
readln（a[m]）；
这是试图使用数组来接收数据。数组ps的大小受变量限制

var / type
A = array [1..13] : integer;
m : integer;

repeat
    readln (A[m]);
    m:=m+1;
until (m<=10);

var/type
A=数组[1..13]：整数；
m：整数；
重复
readln（A[m]）；
m:=m+1；
直到（m这是尝试使用数组接收数据。数组ps的大小受变量限制

var / type
A = array [1..13] : integer;
m : integer;

repeat
    readln (A[m]);
    m:=m+1;
until (m<=10);

var/type
A=数组[1..13]：整数；
m：整数；
重复
readln（A[m]）；
m:=m+1；
直到（m这里输入blind，但希望这个概念出现：

{ in declarations }
var A: array[1..99] of integer;   { or however many you need; data workspace }
    m: integer;   { loop index }
    size: integer;


{ in code }
fillchar(A,sizeof(A),#0);  { just good practice to clear out the workspace before starting}
writeln('How many Number you would like to sort:');
readln(size);

For m := 1 to size do
  begin
    if (m=1) then 
      writeln('Input the first value: ')
    else
      if (m=size) then
        writeln('Input the last value: ')
      else
        writeln('Input the next value: ');
    readln(a[m]);
  end;

请注意，我使用的是1索引数组，而不是零索引数组。除了我更喜欢这种方式之外，没有其他原因可以使用“-1”来保存所有数据。
在此处键入blind，但希望这个概念会出现：

{ in declarations }
var A: array[1..99] of integer;   { or however many you need; data workspace }
    m: integer;   { loop index }
    size: integer;


{ in code }
fillchar(A,sizeof(A),#0);  { just good practice to clear out the workspace before starting}
writeln('How many Number you would like to sort:');
readln(size);

For m := 1 to size do
  begin
    if (m=1) then 
      writeln('Input the first value: ')
    else
      if (m=size) then
        writeln('Input the last value: ')
      else
        writeln('Input the next value: ');
    readln(a[m]);
  end;

read(a[m]);

请注意，我使用的是1索引数组，而不是零索引数组。除了我更喜欢这种方式之外，没有其他原因可以使用“-1”到处保存

read(a[m]);

应该可以很好地工作

应该可以很好地工作。
SO的官方语言是英语；请坚持使用。我不确定我是否理解了您答案的意思，因此如果我弄错了，您可能需要重写。SO的官方语言是英语；请坚持使用。我不确定我是否理解了您答案的意思，因此如果我理解了，您可能需要重写它错。