Подскажите,пожалуйста,можно ли сделать так,чтобы когда я вывожу из текстового файла,данные для массива,автом

procedure TForm1.Button1Click(Sender: TObject);
var max,n,m,i,j,ii,jj:integer;
A:array[0..30,0..30] of Integer;
begin
N := SpinEdit1.Value; //количество строк
M := SpinEdit2.Value; //количество столбцов
for i:=0 to n-1 do
for j:=0 to m-1 do
 A[i,j]:=StrToInt(StringGrid1.Cells[j, i]);
 max:=A[0,0]; ii:=0; jj:=0;
 for i:=0 to n-1 do
  for j:=0 to m-1 do
   if A[i,j]>max then
    begin
     max:=A[i,j];
     ii:=i;
     jj:=j;
end;
label4.Caption:=('Максимальный элемент матрицы '+IntToStr(max)+' находится на пересечении '+IntToStr(ii)+'-й строки и '+IntToStr(jj)+' столбца');
end;
 
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
StringGrid1.RowCount := SpinEdit1.Value;
end;
 
procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
StringGrid1.ColCount := SpinEdit2.Value;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
 Tstr,TstrBuff:TStringList;
 i,j:Integer;
begin
 
if OpenDialog1.Execute then
Begin
TstrBuff:= TStringList.Create;
TstrBuff.Delimiter:=' ';
 
Tstr:= TStringList.Create;
Tstr.LoadFromFile(OpenDialog1.FileName);
 
StringGrid1.RowCount:= Tstr.Count+1; // задаем количество строк в таблице
 
for i:=0 to Tstr.Count-1 do
 begin
 // определяем, нужно ли расширить таблицу 
 TstrBuff.DelimitedText:=Tstr.Strings[i];
 if TstrBuff.Count> StringGrid1.ColCount-1 then  StringGrid1.ColCount:=TstrBuff.Count+1;
 
 // заполняем очередную строку таблицы соответствующими данными
 StringGrid1.Rows[i].Delimiter:=' ';
 StringGrid1.Rows[i].DelimitedText:= Tstr.Strings[i];
 
 end;
Tstr.Free;
TstrBuff.Free;
end;
end;

N := SpinEdit1.Value; //количество строк
M := SpinEdit2.Value; //количество столбцов

var
  Form1: TForm1;
  n,m:integer;
  a:array of array of integer;
implementation
 
{$R *.dfm}
//зададим некоторые параметры
procedure TForm1.FormCreate(Sender: TObject);
begin
with StringGrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  defaultcolwidth:=30;
  scrollbars:=ssBoth;
 end;
SpinEdit1.MinValue:=2;
SpinEdit1.MaxValue:=30;
SpinEdit1.Value:=2;
SpinEdit2.MinValue:=2;
SpinEdit2.MaxValue:=30;
SpinEdit2.Value:=2;
Button2.Enabled:=false;//вторая кнопка в начале не нужна
end;
//если выбрали ввод из файла, отключим поля ввода размеров
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
SpinEdit1.Enabled:=false;
SpinEdit2.Enabled:=false;
end;
//создание матрицы
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
    f:textfile;
begin
case RadioGroup1.ItemIndex of
0:begin
   n:=SpinEdit1.Value; //количество строк
   m:=SpinEdit2.Value; //количество столбцов
   setlength(a,n,m);
   with StringGrid1 do
    begin
     colcount:=m;
     rowcount:=n;
     options:=options+[goEditing];
    end;
    ShowMessage('Введите в таблицу целые числа');
  end;
1:begin
  assignfile(f,'matrix.txt');//файл в папке с программой
  reset(f);
  read(f,n,m);//первык 2 числа в файле размер матрицы
  setlength(a,n,m);
  with StringGrid1 do
    begin
     colcount:=m;
     rowcount:=n;
    end;
  for i:=0 to n-1 do
  for j:=0 to m-1 do
   begin
    read(f,a[i,j]);
    StringGrid1.Cells[j,i]:=inttostr(a[i,j]);
   end;
  closefile(f);
 end;
else
 begin
  ShowMessage('Не выбран способ заполнения матрицы');
  exit
 end;
end;
Button1.Enabled:=false;//выключим первую кнопку
Button2.Enabled:=true;//включим вторую
end;
//выполнение задачи
procedure TForm1.Button2Click(Sender: TObject);
var max,i,j,k,c,ii,jj:integer;
begin
//проверим равильность ввода элемнтов матрицы
if RadioGroup1.ItemIndex=0 then
 begin
  k:=0;
  i:=0;
  while (i<n)and(k=0) do
   begin
    j:=0;
    while(j<m)and(k=0)do
     begin
      val(StringGrid1.Cells[j,i],a[i,j],c);
      if c<>0 then
       begin
        k:=1;
        ShowMessage('Не все элементы введены верно, поправьте')
       end
      else inc(j);
     end;
    if k=0 then inc(i)
   end;
  end;
max:=a[0,0];
ii:=0;
jj:=0;
for i:=0 to n-1 do
for j:=0 to m-1 do
if a[i,j]>max then
 begin
  max:=a[i,j];
  ii:=i;
  jj:=j;
 end;
label4.Caption:=('Максимальный элемент матрицы '+IntToStr(max)+
                 ' находится на пересечении '+IntToStr(ii+1)+
                 '-й строки и '+IntToStr(jj+1)+' столбца');
end;