我用Delphi编写了一个指针数组的程序，编译无错，但运行时屏幕怎么一闪而过

Question

program Bucket;{$APPTYPE CONSOLE}uses
  SysUtils;const n :integer =5;
   type
     point= ^node;
     node=record
      data:double;
      link:point
      end;
  var
     A: array[1..5] of double;
     i:integer;
    B: array[0..5-1]of point;
  // A: point;begin
  { TODO -oUser -cConsole Main : Insert code here }
         // new(A);
   for i:=0 to 5-1 do
  begin
   new(B[i]);
   end;
     B[0]^.data:=0;
     B[0]^.link:=NIL;
     Randomize;
     for i:=1 to n do
     begin
     A[i]:=random(1);
     B[i]^.data :=i;
     B[i]^.link :=NIL;
     end;
     for i:=1 to 4 do
     begin
     writeln(B[i]^.data);
     end;
     readln;end.

Answer 1

for i:=1 to 4 do
     begin
     writeln(B[i]^.data);
    //添加
     sleep(1000);
     end;
     readln;

Answer 2

希望大家能运行一下，并不是要sleep（1000），而是writeln(B[i]^.data)有问题，但是为什么不能这样写呢