fpcsrc/tests/webtbs/tw2807.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{$mode delphi}

uses
  SysUtils;

var
  a:array of integer;
begin
  a := nil;
  SetLength(a,3);
  a[0] := 0;
  a[1] := 1;
  a[2] := 2;
  WriteLn(IntToStr(a[0]));
  a := nil;
end.