объявление функции как массива

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  mas=array of string;
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
uses Unit2;
 
var
  A, B: mas;
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
begin
 A:=formation('A.txt');
 B:=formation('B.txt');
 ShowMessage(B[0]);
end;
 
 
end.

unit Unit2;
 
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  mas=array of string;
 
  function formation(way: string): mas;
 
implementation
uses Unit1;
 
function formation(way: string): mas;
var
 tfile: TextFile;
 i: Integer;
begin
 i:=0;
 AssignFile(tfile, way);
 reset(tfile);
 while not Eof(tfile) do begin
  Readln(tfile, result[i]);
  inc(i);
 end;
 CloseFile(tfile);
end;
 
end.

SetLength(Result, Length(Result) + 1);