не работает процедура

[pavelmorash12]

Помогите, пожалуйста
Файл типизированный. Выходит ошибка I/O error 6

procedure TVyvody.Chtenie(var inf: array of data);
var i,n:integer;
  begin
  Reset(f);
  i:=0;
  n:=0;
  SetLength(tovar,FileSize(f));
  while not eof(f) do
    Begin
    Read(f,tovar[i]);
    Form1.stringgrid1.Cells[0,i+1]:=inf[i].name;
    Form1.stringgrid1.Cells[1,i+1]:=inf[i].sg;
    Form1.stringgrid1.Cells[2,i+1]:=inttostr(inf[i].cena);
    Form1.stringgrid1.Cells[3,i+1]:=inf[i].izg;
    i:=i+1;
    n:=n+1;
    Form1.stringgrid1.RowCount:=Form1.stringgrid1.RowCount+1;
    end;
closefile(f);
end;
 
procedure TForm1.openClick(Sender: TObject);
var i:integer;
begin
for i:= 1 to n do
StringGrid1.Rows[i].Clear;
stringgrid1.RowCount:=2;
if OpenDialog1.Execute then
   Begin
   AssignFile(f,OpenDialog1.FileName);
   vyvody.chtenie(tovar);
end else exit;
SF.Hide;
end;

[Serge_Bliznykov]

1)

Сообщение от pavelmorash12

Read(f,tovar[i]);

прочитали в массив tovar

Сообщение от pavelmorash12

Form1.stringgrid1.Cells[0,i+1]:=inf[i].name;
    Form1.stringgrid1.Cells[1,i+1]:=inf[i].sg;
    Form1.stringgrid1.Cells[2,i+1]:=inttostr(inf[i].cena);
    Form1.stringgrid1.Cells[3,i+1]:=inf[i].izg;

а в грид пытаемся из массива inf взять информацию.
Ошибка?

2)

Сообщение от pavelmorash12

procedure TVyvody.Chtenie(var inf: array of data);

так нельзя передавать массив.
объявите свой тип данных и передавайте его:

type
  TTovarArray =  array of data;


procedure TVyvody.Chtenie(var inf:  TTovarArray);
var i,n:integer;
  begin
    Reset(f);
    n:=FileSize(f);
    SetLength(inf,n);
    Form1.stringgrid1.RowCount:=n;
    for i:=0 to n-1 do 
    Begin
      Read(f,inf[i]);
      Form1.stringgrid1.Cells[0,i+1]:=inf[i].name;
      Form1.stringgrid1.Cells[1,i+1]:=inf[i].sg;
      Form1.stringgrid1.Cells[2,i+1]:=inttostr(inf[i].cena);
      Form1.stringgrid1.Cells[3,i+1]:=inf[i].izg;
    end;
    closefile(f);
end;

[pavelmorash12]

Спасибо Вам большое