delphi 数组 for循环

program Project2;


{$APPTYPE CONSOLE}


uses
  SysUtils;

//interface implementation 怎么用暂不清楚
var
  str:string;
  A: array[0..2] of Integer;
  B: array[1..2] of Integer;
  i : Integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }


 { Writeln('请输入一个整数');
  Readln(str);
  Writeln('你输入的是：',str);
  }


  A[0] := 1;
  A[1] := 12;
  A[2] := 15;




  B[1] := 21;
  B[2] := 22;
  B[3] := 27;      //错误,提示越界，作为右值不提示错误


  for i:=0 to 2 do
  begin
    Writeln('A ',i,' ',A[i]);
  end;


  for i:=0 to 3 do
  begin
    Writeln('B ',i,' ',B[i]);
  end;


  Readln;


end.