Избитая тема про StringGrid и числовую матрицу

var
  f : textfile;
  i, j, n, m : integer;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(f, OpenDialog1.FileName);
    Reset(f);
    ReadLn(f, n);// читаем кол-во строк
    ReadLn(f, m);// читаем кол-во столбцов
    for i := 0 to n-1 do
      for j := 0 to m-1 do
        ReadLn(f, StringGrid1.Cells[i, j]);// заполняем stringgrid
    CloseFile(f);
  end;
end;

var
  f : textfile;
  i, j, n, m : integer;
  Str : string;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(f, OpenDialog1.FileName);
    Reset(f);
    ReadLn(f, n);// читаем кол-во строк
    ReadLn(f, m);// читаем кол-во столбцов
    for i := 0 to n-1 do
      for j := 0 to m-1 do
      begin
        ReadLn(f, str);
        StringGrid1.Cells[i, j] := str;// заполняем stringgrid
      end;
    CloseFile(f);
  end;
end;

var
  f : textfile;
  i, j, n, m, x : integer;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(f, OpenDialog1.FileName);
    Reset(f);
    Read(f, n);// читаем кол-во строк
    Read(f, m);// читаем кол-во столбцов
    StringGrid1.ColCount:=m;
    StringGrid1.RowCount:=m;
    for i := 0 to n-1 do
    for j := 0 to m-1 do
     begin
      Read(f,x);
      StringGrid1.Cells[j,i]:=IntTostr(x);// заполняем stringgrid
     end;
   CloseFile(f);
  end;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
    a,n,m,i,j:integer;
begin
if OpenDialog1.Execute then
 begin
   assignfile(f,OpenDialog1.FileName);
   reset(f);
 end;
n:=0;
while not eoln(f) do
 begin
  read(f,a);
  n:=n+1;
 end;
closefile(f);
with StringGrid1 do
 begin
  ColCount:=n;
  fixedcols:=0;
  fixedrows:=0;
  defaultcolwidth:=35;
  RowCount:=1;
 end;
Edit1.Text:='Количество столбцов='+IntToStr(n);
reset(f);
i:=-1;
j:=0;
m:=0;
while not eof(f) do
 begin
  read(f,a);
  i:=i+1;
  StringGrid1.Cells[i,j]:=IntToStr(a);
  if i=n-1 then
   begin
    j:=j+1;
    i:=-1;
    m:=m+1;
    StringGrid1.RowCount:=m;
   end;
 end;
closefile(f);
Edit2.Text:='Количество строк='+IntToStr(m);
end;
 
end.