Запись в файл и вывод функции

type sved=record 
name:string[30]; 
sg:string[15]; 
cena:integer; 
izg:string[30]; 
end;
var 
Form1: TForm1; 
f:file of sved; 
flname:string; 
product: array of sved; 
recofsved: sved; 
n,i:integer;
 
procedure TForm1.openClick(Sender: TObject); 
var i:integer; 
begin 
if OpenDialog1.Execute then 
Begin 
AssignFile(f,OpenDialog1.FileName); 
Reset(f); 
i:=0; 
SetLength(product, FileSize(F)); 
while not eof(f) do 
Begin 
seek(f,i); 
Read(f, product[i]); 
stringgrid1.Cells[0,i+1]:=product[i].name; 
stringgrid1.Cells[1,i+1]:=product[i].sg; 
stringgrid1.Cells[2,i+1]:=inttostr(product[i].cena); 
stringgrid1.Cells[3,i+1]:=product[i].izg; 
i:=i+1; 
n:=n+1; 
stringgrid1.RowCount:=stringgrid1.RowCount+1; 
end; 
CloseFile(f); 
SF.Hide; 
stringgrid1.RowCount:=stringgrid1.RowCount-1; 
end else exit; 
end;
 
procedure TForm1.saveClick(Sender: TObject); 
begin 
if not savedialog1.Execute then exit; 
flname:=savedialog1.FileName; 
assignfile(f,flname); 
try 
rewrite(f); 
except 
showmessage('ошибка создания файла '+flname); 
exit 
end; 
for i:= 0 to High(product) do 
begin 
Write(f, product[i]); 
end; 
closefile(f); 
end;

seek(f,i);

n:=n+1;