txt файл в StringGrid

assignfile(f,'123.txt');
rewrite(f);
for i:=0 to sg.rowcount-1 do
 begin
  for j:=0 to sg.colcount-1 do
  write(f,sg.cells[j,i],#9);
  writeln(f,'');
 end;
closefile(f);
end;

procedure TForm1.Button1Click(Sender: TObject);
var n,m,i,j,k,p:integer;
    a:array of array of string;
    s:string;
    f:textfile;
begin
n:=sg.ColCount;
m:=sg.RowCount;
Setlength(a,m,n);
for i:=0 to m-1 do
for j:=0 to n-1 do
a[i,j]:=sg.Cells[j,i];
//во всех столбцах
for j:=0 to n-1 do
 begin
  //отсортируем по алфавиту
  for i:=0 to m-2 do
  for p:=i+1 to m-1 do
  if a[i,j]>a[p,j] then
   begin
    s:=a[i,j];
    a[i,j]:=a[p,j];
    a[p,j]:=s;
   end;
  //переставим числа вверх
  k:=-1;
  for i:=0 to m-1 do
  if StrToFloatDef(a[i,j],-1000)<>-1000 then
   begin
    k:=k+1;
    s:=a[i,j];
    for p:=i downto k+1 do
    a[p,j]:=a[p-1,j];
    a[k,j]:=s;
   end;
  //отсортируем их по возрастанию
  for i:=0 to k-1 do
  for p:=i+1 to k do
  if StrToFloat(a[i,j])>StrToFloat(a[p,j]) then
   begin
    s:=a[i,j];
    a[i,j]:=a[p,j];
    a[p,j]:=s;
   end;
 end;
assignfile(f,'123.txt');
rewrite(f);
for i:=0 to m-1 do
 begin
  for j:=0 to n-1 do
  write(f,a[i,j],#9);
  writeln(f,'');
 end;
closefile(f);
end;

begin
AssignFile(f,'qw.txt');
reset(f);
  for i:=1 to 3 do
    for j:=1 to 4 do
    begin
      read(f,s);
      rez[i, j]:=s;
    end;
CloseFile(f);
end;