Маленькая проблемка с стринггридом

procedure TForm1.N4Click(Sender: TObject);
var
i,j:integer;
begin
if SaveDialog1.Execute then
begin
a:=inttostr(StringGrid1.RowCount) + '&';
for j:=0 to StringGrid1.RowCount-1 do
for i:=0 to StringGrid1.ColCount-1 do begin
a:=a+StringGrid1.Cells[i,j] + '&';
end;
AssignFile(f2,savedialog1.FileName);
reset(f2) ;
rewrite(f2);
Writeln(f2,a);
closefile(f2);
end;
end;
 
procedure TForm1.N3Click(Sender: TObject);
var
x,y,l,i,j,d:integer;
begin
if opendialog1.Execute then
begin
t:=1;
fn:='';
AssignFile(f2,opendialog1.filename);
reset(f2);
readln(f2,a) ;
while a[t]<>'&' do begin
fn:=fn + a[t];
t:=t+1;
closefile(f2);
StringGrid1.RowCount:=strtoint(fn);
 
firstnumber:=0;
 
end;
 
AssignFile(f2,OpenDialog1.FileName);
reset(f2) ;
readln(f2,a);
closefile(f2);
for l:=t+1 to length(a) do begin
if a[l]='&' then
firstnumber:=firstnumber+1;
end;
i:=0;
j:=0;
d:=firstnumber div strtoint(fn);
StringGrid1.ColCount:=d;
AssignFile(f2,OpenDialog1.FileName);
reset(f2) ;
readln(f2,a);
closefile(f2);
for l:=t+1 to length(a) do begin
x:= (i mod d);
y:= (i div d);
if a[l]='&' then begin
i:=i+1;
StringGrid1.Cells[x,y]:=StringGrid1.Cells[x,y] ;
end
else StringGrid1.Cells[x,y]:=StringGrid1.Cells[x,y] + a[l];
 
end;