Массив: Что лучше использовать для ввода одномерного массива?

...
var Mas: Array of Integer;
...
Procedure OpenFileWithStrem(FileName: String); //Структура файла представлена в роде непрерывного набора числе
var F: TFileStream;                            //пример такого файла (<m   r   b   o   >);
  i: Integer;                                  //хотя файл содержит непрерывные числа (109,114,98,111,103);
begin
F:=TFileStream.Create(FileName,fmOpenRead);
i:=F.Size div SizeOf(Integer);
SetLength(Ma,i);
F.ReadBuffer(Pointer(Ma)^,i);
F.Free;
end;
 
Procedure OpenFileWithTextFile(FileName: String); //Текст в файле: в каждой строчке число
var F: TextFile;
  Buf: String;
  i: Integer;
begin
AssignFile(F,FileName);
Reset(F);
While not EOF(F) do
begin
  Readln(F,Buf);
  SetLength(Ma,Length(Ma)+1);
  Ma[High(Ma)]:=StrToInt(Buf);
end;
CloseFile(F);
end;
 
Procedure OpenSolidFile(FileName: String); //В Текст в файле: в файле 1 строчка где перечислены числа через ";", как в csv файле
var F: TextFile;
  Buf: String;
  i: Integer;
begin
AssignFile(F,FileName);
Reset(F);
Readln(F,Buf);
If Buf[Length(Buf)]<>';' then Buf:=Buf+';';
While Pos(';',Buf)<>0 do
begin
  SetLength(Ma,Length(Ma)+1);
  Ma[High(Ma)]:=StrToInt(Copy(Buf,1,Pos(';',Buf)));
  Delete(Buf,1,Pos(';',Buf)+1);
end;
CloseFile(F);
end;

...
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
If ARow=StringGrid1.RowCount-1 then StringGrid1.RowCount:=StringGrid1.RowCount+1;
end;
...
For i:=0 to StringGrid1.RowCount-1 do
begin
  SetLength(Mas,Length(Mas)+1);
  Mas[High(Mas)]:=StrToInt(StringGrid1.Cell[1,i]);
end;
...

  for i:=0 to n do
      mas[i]:=strtoint(InputBox('Ввод массива','Целое число:',''));