program MyPoint;  //指针详解
{$APPTYPE CONSOLE}
uses
  SysUtils,windows,Generics.Collections ;

type
  TArray = array of string;//字符串数组

{函数返回数组}
procedure MyFunc9();
{功能函数}
    procedure MyArrFunc(var MyArr : TArray);
    var
      i    : integer;
    begin
      SetLength(MyArr, 50);//需要设置长度
      for I := 0 to 50 do MyArr[i] := IntToStr(I); //赋值
    end;
{变量}
var
  TheArr : TArray;
  i  : integer;
begin
  TheArr := nil;  //初始化一下
  MyArrFunc(TheArr);//给数组赋值
  for i := Low(TheArr) to High(TheArr) do //遍历
    Writeln(TheArr[i]); //输出
end;

{main主函数}
begin
 MyFunc9();
 Readln;//回车退出
end.