Процедура или функция записи файла

[pavelmora]

Процедура или функция записи файла

Помогите, пожалуйста. нет идей. Как сделать функцию, чтоб она записывала содержимое СГ в файл?
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
Read(f, product);
stringgrid1.Cells[0,i+1]:=product.name;
stringgrid1.Cells[1,i+1]:=product.sg;
stringgrid1.Cells[2,i+1]:=inttostr(product.cena);
stringgrid1.Cells[3,i+1]:=product.izg;
i:=i+1;
stringgrid1.RowCount:=stringgrid1.R owCount+1;
end;
CloseFile(f);
SF.Hide;
stringgrid1.RowCount:=stringgrid1.R owCount-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);
end;
closefile(f);
end;